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Preface 


Before we start, let me explain what this book is about and why it is different from 
all the other books you may have read about OS/2 and Presentation Manager. 
Since June 1988 many have taken the road to Presentation Manager program- 
ming, and inevitably found that it wasn’t as straight as they first thought. 
It contained many twists and turns, dead-ends and up and downs, but fortu- 
nately they found the way in the end. Those programmers in IBM were fortunate 
to have at their disposal an extremely powerful, comprehensive computer 
conferencing facility which has been used, and still is today, to solve no end of 
problems. Even now, many of these problems are still causing trouble, especially 
among newcomers to Presentation Manager. Every two or three weeks the same 
questions are being asked, hence the reason for writing this book. It is a compila- 
tion of the most commonly asked questions and their solutions. For example, some 
of the questions repeatedly asked are: 


How can I make a dialog box a main window? 

How do I arrange data in columns in my listbox? 

Why can I not set the focus in my dialog box on initialization? 

How can I prevent users from accessing applications other than mine? 


These, and many more questions are answered in this book. Where applicable 
each solution is backed up with code fragments and, where appropriate, is incor- 
porated into a sample program. These programs do not have any significant func- 
tion however, they only serve to confirm that the solutions are correct. For this 
reason I have ignored such things as error checking, except where relevant to 
the solution. Also, on occasions when it has been necessary to verify that certain 
values have been returned, I have omitted to display them. Instead, I used the Pre- 
sentation Manager debugger to check the values. For this reason, all programs 
have been built for use with the debugger. You will also notice in the sample 
programs code which has been commented out. This code was used to confirm 
alternative methods, or just to verify a particular point. 

All the problems covered by this book were originally identified whilst using the 
16-bit version of OS/2 (OS/2 V1.x), however, the majority still apply to the 32-bit 
version (OS/2 V2.0) and for these all the code is written for IBM’s new 32-bit com- 
piler, C Set/2. Where the problem no longer exists for version 2.0, the code is written 
for IBM’s C/2 version 1.1 compiler and is clearly identified. If a solution is applic- 
able to both 16-bit and 32-bit but the code differs then this will also be identified. 
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XIV Preface 


Now a word of warning, this book is not intended to teach you how to write 
Presentation Manager programs, there are several very good books on the market 
today intended for that purpose. No, this book is for those of you who have 
already written at least one basic Presentation Manager program, ‘Hello World’ 
for example, and need to go that bit further. It’s not until you actually start writ- 
ing your own Presentation Manager programs that you find the simplest things 
you want to do just are not documented anywhere, or appear not to be. This is 
the idea behind this book. Hopefully you will find the answer to many of the 
‘How dol...’ type of questions. 

In order to keep this book down to a manageable size I have made no attempt to 
explain parameter usage on individual function calls. It is assumed that you have the 
OS/2 version 2.0 developer’s toolkit installed which has all this information on-line. In 
fact, to get the most out of this book you should take the sample code, and experi- 
ment with it by making changes and observing the results. You will also notice, par- 
ticularly for the chapter on dialog boxes, that I have not included examples for all 
the controls. The reason for this is that the book is based on the areas that have 
caused, and still cause, most problems, or raised most questions. The fact that a 
particular control, or other topic, does not appear is because it has not had the 
same level of difficulty. This book addresses those questions which arise regularly. 

For completeness, you will find at the end of the book a simple utility program. 
It is a program which monitors the swap file partition and warns when you are low 
on disk space. It uses many of the hints given throughout the book, and, indeed, it 
is almost impossible to write any application without using this information in one 
way or another. 

Finally, as a reminder, the sample programs were not designed to conform to any 
standard or provide any major functionality, they are here only to verify each solu- 
tion and to give you the code to extract, and modify where necessary, for your own 
programs. For this reason, it is strongly recommended that you obtain the accom- 
panying diskettes which contain all the source code, both 16-bit and 32-bit, and the 
executable modules. 


Warning: This book makes reference to some undocumented interfaces and 
features. You are strongly advised that under no circumstances should you use 
these, or indeed any such undocumented interface or feature that you may 
discover, for any software intended for the marketplace. There are many 
reasons why they are not documented, most importantly: 


e They are liable to change at any time, either through a corrective service 
diskette (CSD) or a new release. 

e They may be removed. 

e They may only work currently under special conditions. 


All such interfaces and features are clearly marked, and you use them at your 
own risk. 
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Now let us briefly look at what the book covers. 

Chapter 1 takes a very simple 16-bit skeleton program and goes through the pro- 
cess of converting it to 32-bit. This program then forms the basis of most of the other 
sample programs. After this we look at some of the other areas that have changed 
with the introduction of OS/2 version 2.0. This is intended to give you an idea of 
what to look for if you have to convert any of your own 16-bit applications. 

Chapter 2 looks at the problems associated with processing windows in general. 
These are mainly to do with size and position, but the chapter also covers sub- 
classing. 

Chapter 3 covers the essentials of a system modal application, this is something 
that crops up quite regularly. It would appear that many organizations want to 
restrict their users to one specific application, this chapter shows you how to do 
just that. 

Chapter 4 takes a quick look at presentation parameters, these are used through- 
out the book whenever we need to change the font or colour of a control. 

Chapter 5, by far the largest, covers dialog boxes and their controls. This is the 
one area that has raised more questions than any other. I have not mentioned all 
the possible controls here, just those that have given rise to the most questions. 
Probably the one topic that has caused most concern is the ownerdraw listbox; 
this is covered in some detail and should be enough to get you started. Another 
very common question related to dialog boxes is how to use them as the main 
application window. Again this is covered in detail and in fact, the three sample 
programs I have written for this chapter use this approach. 

Chapter 6 takes a look at some of the new controls for version 2.0: the slider, 
value set and notebook. 

Chapter 7 continues looking at version 2.0 by introducing the two new standard 
dialogs, file open and font change. All these version 2.0 additions are combined 
into one sample program. 

Chapter 8 looks at the atom manager and user messages. Specifically it deals 
with the problem of message IDs. If you send a message to another application 
you need to be sure that the message ID 1s unique to prevent the receiving applica- 
tion from doing something you had not intended. 

Chapter 9 covers the use of window words and the problem of passing initializa- 
tion data to a dialog box. 

Chapter 10 investigates window enumeration, a topic which has not been 
covered much up to now. We see how to obtain the handle of a window in another 
application and hence change its appearance. 

Chapter 11 looks at icon handling, specifically animated icons and how to 
change, or hide, the text under an icon. This also uses window enumeration. 

Chapter 12 looks at threads and timers. It specifically shows how to create a 
timer greater than one minute using a separate thread. It also discusses how the 
DosCreateThread function has changed for version 2.0 as well as the introduction 
of DosKillThread. 
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Chapter 13 covers three related topics: menus, task management and shutdown. 
It shows how to modify the system and application menus, and how to implement 
pop-up menus. It then goes on to look at the window list and how you can add, or 
change, your program’s entry in that list. Finally, it deals with the shutdown 
process. 

Chapter 14 puts many of the tips covered in this book together to build a com- 
plete 32-bit utility program. This program monitors the size of the swap file to give 
you an early warning of space shortage. As soon as the free space on your swap 
partition falls below 3Mb a message box is displayed giving you this warning 
and remains on the desktop until the free space once again rises above 3Mb. 

Chapter 15 is a little beyond the scope of this book since it does not explicitly 
deal with Presentation Manager. However, because memory management is 
fundamentally different in version 2.0, and exception handling has been greatly 
enhanced, I have provided an exception handler as an easy way to manage mem- 
ory for those programs which may need to manipulate large amounts of memory. 
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1 
16-bit to 32-bit conversion 


As an introduction, let us start by taking a simple 16-bit OS/2 skeleton program 
and going through the process of converting it to 32-bit. Once this has been 
done we will look at some other areas you should be aware of if converting to 
32-bit. But first, a quick review of the notation used throughout the book. 


1.1 Hungarian notation 


Presentation Manager uses a variable naming convention which, at first sight, 
looks rather strange. Briefly, the method is to prefix each variable with a lower- 
case tag so that its type is quickly identifiable, for example, the variable szText 
would be a zero-terminated string of text. The variable name itself begins in upper 
case and uses mixed case from then on. This notation is called the Hungarian nota- 
tion and is so-called because its inventor, Charles Simonyi, is a Hungarian. 

The most common prefixes are as follows: 


short S 
unsigned short us 
long l 
unsigned long ul 
character ch 
unsigned character uch 
byte b 
zero-terminated string SZ 
counter Cc 
pointer 

rectangle rc 
window handle hwnd 
other handle h 
flag f 
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Figure 1.1. Skeleton program output. 


These prefixes can also be combined, for example, the variable pszText would be 
a pointer to a string of text. 
You will find this notation used extensively throughout the book. 


1.2 Skeleton program and its conversion to 32-bit 


This skeleton program does nothing more than build a small, sizeable, client win- 
dow centralized on the desktop. It contains a menu bar with an Exit option, mini- 
mize and maximize icons and the system menu (Fig 1.1). 

The C source for this program is shown in Fig. 1.2. It is used as the base for all 
the other programs in this book, so let us take a quick look at it. 

Obviously, the first thing we must do in any Presentation Manager program is to 
inform Presentation Manager of our presence by calling WinInitialize. This 
returns us an anchor block handle, through which Presentation Manager keeps 
track of us. We must then start a message queue and register our window class. 
Notice that we have used the anchor block handle in both these calls. We can 
now consider ourselves fully signed-up and ready to go with Presentation Man- 
ager; it knows where our queue is, what our window class is and what window pro- 
cedure it is to use when a message is destined for it. However, before we can do 
anything useful we must have a window, so that is what we do next. We load the 
title of the window from the resource file, the source of which is in Fig. 1.3, and set 
the frame flags for the controls we need and then call WinCreateStdWindow. 
Because we have not specified any window styles, the second parameter, the 
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#define INCL_WINWINDOWMGR 
#define INCL WINFRAMEMGR 
#define INCL WINSWITCHLIST 
#define INCL _WINSYS 
#include <os2.h> 

#include 2S¢ Ting . i> 
#include 2stdlib. he 
#include "skeleton.h" 


MRESULT EXPENTRY MainWndProc (HWND, USHORT, MPARAM, MPARAM) ; 


[RRRKKRKKKKEKKEKKKRKKKKKKKKKEKRKEKKKKKKEKRKKKEKKKKEEKKKKKEKRKEKK KR KRKKKKKKKK KE / 


VOID cdecl main(void) 
{ 
HAB hab; 
HMO hmq; 
HWND hwndFrame, 
hwndClient; 
QOMSG Cms¢ > 
ULONG flFrameFlags; 
CHAR szTitle[80]; 


SWCNTRL PomEntry; 
SHORT sX_Left, 
BY BOC, 
sHeight, 
swidth; 
LONG 1ScrHeight, 
1Scrwidth; 


[RRRRRKEKKKKKEKKREREKEKEKEKE KR KEKE KKEKEKEKKREKEKERKEKEKEKRKKKEKKEKKE REEKRKEKEKEKEKE / 


hab = WinInitialize(0); 
hmg = WinCreateMsgQueue (hab, 0) ; 


WinRegisterClass(hab, "Skeleton", MainWndProc, CS_SIZEREDRAW, 0); 
WinLoadString (hab, NULL, ID TITLE, sizeot(sazTitle), szTitle) > 


flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF_MENU | 
FCF_SIZEBORDER | FCF_MINMAX | FCF_ACCELTABLE | 
FCF _ICON; 


Figure 1.2. Skeleton program: C source file (16-bit). Continues. 
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hwndFrame = WinCreateStdWindow(HWND_DESKTOP, OL, &flFrameFlags, 
"Skeleton", (PSZ)szTitle, OL, 
NULL, ID_MAINWND, &hwndClient) ; 


1ScrWidth = WinQuerySysValue(HWND_DESKTOP, SV_CXSCREEN) ; 
1ScrHeight = WinQuerySysValue(HWND_DESKTOP, SV_CYSCREEN) ; 


swidth = 400; 
sHeight = 300; 


sX_Left = ((SHORT) 1ScrWidth - sWidth) fas 
SY_Bot = ((SHORT)1ScrHeight - sHeight) / 2; 
/* teas a ah Os ena a eae hy Shas be Pca ey ant ty a eet Btls * j/ 
/* Startup in foreground */ 
/* a es fear a yee gs eg Se es yak eh ck a sh Me Gd es ky * / 
WinSetWindowPos (hwndFrame, NULL, sX_Left, sY_Bot, sWidth, 
sHeight, 
SWP_SIZE | SWP_MOVE | SWP_SHOW | SWP_ACTIVATE) ; 
PomEntry . hwnd =hwndFrame; /*------~----------------- a | 
PgomEntry.hwndIcon = NULL; /* Add to task list “7 
PomEntry.hprog = NUL s [* ----------------------- wae i 
PgmEntry.idProcess = NULL? 
PgmEntry.idSession = NULL: 
PgmEntry.uchVisibility = SWL_VISIBLE; 
PomEntry. fbJump = SWL_JUMPABLE; 


strcpy (PgmEntry.szSwtitle, szTitle); 
WinAddSwitchEntry (&PgmEntry) ; 


while (WinGetMsg(hab, &gmsg, NULL, 0, 0)) 
WinDispatchMsg (hab, &qmsg) ; 


/* a a ITT aE Sa en aS i Sg ee ae pao * / 
/*Remove fromtask list and clean up*/ 
/* sashes aap ee em ete oo ope eat ers Sats Oa pl Mh ae Se Ss ee a eh * / 


WinRemoveSwitchEntry (WinQuerySwitchHandle(hwndFrame, 0)); 
WinDestroyWindow (hwndFrame) ; 

WinDestroyMsgQueue (hmq) ; 

WinTerminate (hab) ; 


} 


[ESREEREE AREER ELKALRERARA KEE KERR SRE KKE HK RERRERERARR SREB EARE RAKE Hf 


MRESULT EXPENTRY MainWndProc(HWND hwnd, USHORT msg, MPARAM mpl, 
MPARAM mp2 ) 


Figure 1.2. Skeleton program: C source file (16-bit). Continues. 
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Switch (msg) 
{ 
case WM_COMMAND: 
Switch (SHORTIFROMMP (mp1) ) 
{ 
case MI_EXIT: 
WinPostMsg(hwnd, WM_QUIT, OL, OL); 
break; 
default: 
break; 
} 
break; 
case WM_ERASEBACKGROUND : 
return (MRESULT) TRUE; 
} 


return WinDefWindowProc (hwnd, msg, mpl, mp2); 


Figure 1.2. Skeleton program: C source file (16-bit). Concluded. 


window will be created invisible. We do this so that we can size and position it 
ourselves; that is the significance of the next few statements. The window is dis- 
played as a result of the WinSetWindowPos call. Having finally displayed the 
window, we add ourselves to the task list, or window list as it is called in OS/2 ver- 
sion 2.0. We then start our message-processing loop and remain in it until a 
WM_QUIT message arrives, when we remove our entry from the task list and 
destroy the window and message queue. We finally tell Presentation Manager 
that we have finished by calling WinTerminate. The window procedure, Main- 
WndProc, is concerned with two messages only, WW_ERASEBACKGROUND, from 
which we return TRUE, which causes our window to be painted with the default 
window background colour, and WM_COMMAND with a command value of 
MI_EXIT, which causes the WM_QUIT message to be sent, and hence termination 
of the program. One last point worth mentioning is the presence of the #define 
INCL_* statements at the start of the program. You need these so that all the func- 
tion prototypes and other definitions are known to your program. You may some- 
times come across programs that just have #define INCL_PM. This is not 
recommended as you will then include all the Presentation Manager function 
prototypes and definitions that exist, and that is a lot! This will make your compile 
time much longer and will also make your executable file slightly larger. It is much 
better to #define only those you need. The toolkit documentation specifies which 
INCL you need for any particular function. Failing this, you can always browse the 
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header files in the \TOOLKT20\C\OS2H directory. This is a useful source of infor- 
mation; it is well worth taking a quick look. 


finclude <os2.h> 


#include "skeleton.h" 


STRINGTABLE PRELOAD 


BEGIN 
ID_TITLE, "Skeleton Program" 
END 
ICON ID_MAINWND skeleton.ico 


ACCELTABLE ID_MATNWND 


BEGIN 
VRS, MT EXIT, VIRTUALKEY 
END 
MENU ID_MAITINWND PRELOAD 
BEGIN 
SUBMENU "Erxxit", IDM_ONE 
BEGIN 
MENUITEM "~Exit Program\tF3", Mil_HExLT MIS_ TEXT 
MENUITEM "~Resume Program", MI_RESUME, MIS TEAT 
END 
END 


Figure 1.3. Skeleton program: resource file (16/32-bit). 


You will find some of the above treated in far greater detail as you work through 
the book, but before we start looking at Presentation Manager problems, let us 
convert this simple 16-bit program of Fig. 1.2 to 32-bit. The obvious thing to do 
first is change the make and link control files, and then just run our 16-bit code 
through the compiler and let it tell us what needs to be done. 

If you already have a 16-bit application that needs converting, you may find that 
you will not need to do much depending on which APIs you use. The areas that 
have changed significantly are memory management and semaphores, so if you 
make little use of these you will find conversion very quick and easy. 

First, however, let us look at the 16-bit versions of the make (Fig. 1.4) and link 
control (Fig. 1.5) files. Before we can compile our skeleton program we must first 
change these files. 

All we need do for the make file, is to change the linker to the 80386 version, 
LINK386.EXE, and switch to the IBM C Set/2 32-bit compiler, ICC.EXE 
(Fig 1.6). We also need to change the compile options. These will be used through- 
out the book: 
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/c Compile only 

/Gm Use the multithreaded libraries 

/kb Produce basic diagnostic messages 

/n50 End compilation after 50 errors 

fa Generate information for the C Set/2 debugger. 


Note that the compile options are case insensitive, so /Gm = /GM = /gm = /gM. 


skeleton.exe: skeleton.obj skeleton.def skeleton.res 
link @skeleton.1 


rc skeleton.res 


skeleton.obj: skeleton.c skeleton.h 
cl /c /Alfu /W2 /Gs /Gc /Zi /Od skeleton.c 


skeeleton.res: skeleton.h skeleton.rc skeleton.ico 


re =r skeleton. xre 


Figure 1.4. Skeleton program: make file (16-bit). 


skeleton /A:16 /CO 
skeleton.exe 
skeleton.map /NOD 
llibce.lib+ 
o62.11b 
skeleton.def 


Figure 1.5. Skeleton program: link control file (16-bit). 


skeleton.exe: skeleton.obj skeleton.def skeleton.res 
1link386 @skeleton. 1 —— 


re skeleton.res 


skeleton.obj: skeleton.c skeleton.h 
iec fc /Gm /kb /m50 /Ti skeleton.c es 


skeleton.res: skeleton.h skeleton.rc skeleton.ico 


re -r skeleton.rc 


Figure 1.6. Skeleton program: make file (32-bit). 


All we need to change in the link control file is the library (Fig. 1.7), by using 
OS2386.LIB. We also no longer need the /NOD option. In fact, it is recommended 
that we do omit it, since the C Set/2 compiler passes the correct library names to 
the linker in the object file, based on the /G option. To keep the EXE size down 
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to a minimum, we have retained the /A:16 option and added the /EXEPACK 
option. Note that this option is now valid for OS/2. 


skeleton /A:16 /E /CO — 
skeleton.exe 
skeleton.map 
0S2386.1lib — 
skeleton.def 


Figure 1.7. Skeleton program link control file (32-bit). 


Because OS/2 uses the flat memory model of the 80386 architecture we do not 
need to worry about models, for example whether they are small, medium or 
large; all programs may now be considered small model. 

The other files required for this program are: 


® Header (Fig. 1.8) 
® Module definition (Fig. 1.9) 
® Resource (see Fig. 1.3) 


These do not need changing; they are valid for both the 16-bit and 32-bit versions. 
However, the HEAPSIZE statement may be deleted from the module definition file 
for 32-bit OS/2. 


#define ID_MATNWND 200 
#define 1D TITLE 201 
#define IDM_ONE 202 
#define MT EXIT 203 
#define MI RESUME 204 


Figure 1.8. Skeleton program header file (16/32-bit). 


NAME skeleton WINDOWAPI 

DESCRIPTION ‘Skeleton Program’ 

STUB ‘'OSZSTUB. EXE? 

DATA MULTIPLE 

HEAPSIZE 8192 <= Can be removed for version 2.0 
STACKSIZE 8192 


PROTMODE 


Figure 1.9. Skeleton program: module definition file (16/32-bit). 


Note: 
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Because the link control files, module definition files and make 


files are similar for all the sample programs in this book, they 
will not be reproduced for each program, since it is normally 
only the program name and description that differs. However, 
all program source files are supplied on the diskettes. 


Running the program through the compiler produces the listing shown in Fig. 1.10. 
Note that for each error the compiler reports the line number and the offset within 
that line where the error has occurred. Note also that the 32-bit make program is 
now called NMAKE.EXE. 


SKELETON 


SKELETON. 


SKELETON. 


SKELETON. 


SKELETON. 


SKELETON. 


SKELETON. 


SKELETON. 


SKELETON. 


SKELETON. 


SKELETON. 


SKELETON. 


SKELETON . 


SKELETON. 


SKELETON. 


SKELETON. 


Figure 1.10 


ice fe /Gm /kb /n50 /T1 skeleton.c 


Wl is 23) 
Cl iseL3) 
C(seis?t] 
ClsetaT) 
(38237) 
C(40:22) 
C(40 222) 
© (40222) 
C(46:38) 
C(46:38) 
C (46:38) 
Cts? so) 
Cis? 290) 
Crayesn) 
C(els28) 


C(62 226) 


: error EDCO187: The declaration or definition of 


the function is not valid. 


: error EDC0348: Syntax error: possible missing 


ae des 


: error EDC0322: Type of the parameter cannot 


conflict with previous declaration of function. 


: informational EDC0141: Prototype has type 


unsigned long integer. 


: informational EDC0147: Argument has type 


unsigned short integer. 


: error EDC0322: Type of the parameter cannot 


conflict with previous declaration of function. 


: informational EDC0141: Prototype has type 


unsigned long integer. 


: informational EDC0147: Argument has type pointer 


to void. 


> error EDC0322: Type of the parameter cannot 


conflict with previous declaration of function. 


: informational EDC0141: Prototype has type 


unsigned long integer. 


: informational EDC0147: Argument has type pointer 


te woud. 


: error EDC0322: Type of the parameter cannot 


conflict with previous declaration of function. 


: informational EDC0141: Prototype has type 


unsigned long integer. 


: informational EDC0147: Argument has type pointer 


tO VoO1E.. 


: Warning EDCO807: Variable hwndFrame may not have 


been set before first reference. 


: error EDC0117: The operation between these types 


1S not valid. 


. Skeleton program: compiler listing. Continues. 
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SKELETON.C(62:3) : informational EDC0140: Operand has type unsigned 
long integer. 

SKELETON.C (62:28) : informational EDC0140: Operand has type pointer 
to void. 

SKELETON.C(63:26) : error EDC0117: The operation between these types 
1s not valid. 

SKELETON.C(63:3) : informational EDC0140: Operand has type unsigned 
long integer. 

SKELETON.C(63:28) : informational EDC0140: Operand has type pointer 


to vold. 
SKELETON.C (64:26) : error EDCO117: The operation between these types 


is not valid. 

SKELETON.C(64:3) : informational EDC0140: Operand has type unsigned 
long integer. 

SKELETON.C (64:28) : informational EDC0140: Operand has type pointer 
Lo veld. 

SKELETON.C (65:26) : error EDCO117: The operation between these types 
1s not valid. 

SKELETON.C(65:3) : informational EDC0140: Operand has type unsigned 
long integer. 

SKELETON.C (65:28) : informational EDC0140: Operand has type pointer 
to void. 

SKELETON .C(/2:32) +: error EDCO322: Type of the parameter cannot 
conflict with previous declaration of function. 

SKELETON.C(72:32) : informational EDC0141: Prototype has type 
unsigned long integer. 

SKELETON.C(72:32) : informational EDC0147: Argument has type pointer 


to Void. 

SKELETON.C(82:1) +: warning EDC0833: Implicit return statement 
encountered. 

SKELETON.C(82:0) : warning EDCO805: Automatic variable sY_Bot is 
set but not referenced. 

SKELETON.C(82:0) : warning EDCO805: Automatic variable sxX_Left is 
set but not referenced. 

SKELETON.C(82:0) : warning EDC0805: Automatic variable 
flFrameFlags is set but not referenced. 

SKELETON.C(82:0) : warning EDCO805: Automatic variable hwndClient 


is set but not referenced. 


Figure 1.10. Skeleton program: compiler listing. Concluded. 


As you can see, we do not have too many problems to fix. In fact, all we need to 
do is to change the definition of main,—it now returns an INT—and pay atten- 
tion to parameters on our function calls to OS/2 (Fig. 1.11). The main problem 
encountered here is the redefinition of NULL. It is now defined as ( (void *)0), 
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so you may have to cast it, for example (HMODULE) NULL in line number 46, or 
replace it with 0. You will also need to change some SHORTs to LONGs, the most 
common being the definition of all your window procedures, the msg parameter 
is now defined as a ULONG. 

Making these very simple changes converts our skeleton program into a pure 32- 
bit program. All the changed statements have been marked in Fig. 1.11 with an 
arrow to make them easily identifiable. 


#define INCL_WINWINDOWMGR 
#define INCL WINFRAMEMGR 
#define INCL WINSWITCHLIST 
#define INCL _WINSYS 


#include <os2.h> 
#include <string.h> 
#include <stdlib.h> 
#include "skeleton.h" 


MRESULT EXPENTRY MainWndProc (HWND, ULONG, MPARAM, MPARAM) ; = 


fRRRRKEKREERRE KER EEERRERRER EEE KKEKEKEKRERE RE RKKEREEEKRERKEKR EKEKEKREERE / 


INT main (VOID) — 
{ 
HAB hab; 
HMQ hmq; 
HWND hwndFrame, 
hwndClient; 
OMSG Qqmsg; 
ULONG flFrameFlags; 
CHAR szTatle(sQ]: 
SWCNTRL PomEntry; 
LONG Le Gert, = 
1Y_Bot, — 
Height, — 
1Width, — 
lSerHeight, 
lSerWidth;: 


fREESAAALA SES AHS AE RA KD BR ee a ee ae ee ee ee ee Se A a ee ee eae 


hab = WinInitialize(0); 
hmg = WinCreateMsgQueue (hab, 0) ; 


WinRegisterClass(hab, "Skeleton", MainWndProc, CS _SIZEREDRAW, 0); 
WinLoadsString thab, (HMODULE) NULL, ID TITLE, sizeof(szTitle), <= 


szTitie) » 


Figure 1.11. Skeleton program: C source file (32-bit). Continues. 
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} 


flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF_MENU | 
FCF_SIZEBORDER | FCF_MINMAX | FCF_ACCELTABLE | 
PCP ACON 


hwndFrame = WinCreateStdwindow(HWND_DESKTOP, OL, &flFrameFlags, 
"Skeleton", (PSZ)szTitle, OL, 


(HMODULE) NULL, ID _MAINWND, —S 
&hwndClient) ; 
1Scrwidth = WinQuerySysValue(HWND_DESKTOP, SV_CXSCREEN) ; 
1ScrHeight = WinQuerySysValue (HWND_DESKTOP, SV_CYSCREEN) ; 
IWadth =400; = 
lIHeight = 300; = 
1X_Left = (1lScrwWidth -1Width) /2; —— 
ly Bot = ({LScrHeight = LHeight) / 2; ——— 
WinSetWindowPos (hwndFrame, (HWND) NULL, 1X _Left, 1Y_ Bot, lWidth, 
lHeight, = 
SWP_SIZE | SWP_MOVE | SWP_SHOW | SWP_ACTIVATE) ; 
/ OS a ae a, a hn i ee eee * / 
/* Startup in foreground */ 
/ FO ecg 8 a a aye nce rk a es a * jf 
/* Add to window list “yy 
/ SI sy YN Bp es ee ee ys * / 
PgomEntry .hwnd = hwndFrame; 
PgmEntry.hwndiIcon = (HWND) NULL; —— 
PomMENtry .fprog = (HPROGRAM) NULL; = 
PgmEntry.idProcess = (PID) NULL; = 
PgmEntry.idSession = (ULONG) NULL; — 
PomEntry.uchVisibility = SWL_VISIBLE; 
PgmEntry.fbJump = SWL_JUMPABLE; 
strcpy (PgmEntry.szSwtitle, szTitle); 
WinAddSwitchEntry (&PgmEntry) ; 
while (WinGetMsg(hab, &qmsg, (HWND)NULL, 0O, 0)) — 
WinDispatchMsg (hab, &gmsg) ; 
f SIN ea ey cg he aN a Ri ae Posh ag as Fd ea at fe nh ea eee a, a fe ale * jf 
/* Remove from window list and clean up */ 
7 Ta oe Na a ey ae a ee Ne oe en ches eerie en * jf 
WinRemoveSwitchEntry (WinQuerySwitchHandle(hwndFrame, 0)); 
WinDestroyWindow (hwndFrame ) ; 
WinDestroyMsgQueue (hmq) ; 
WinTerminate (hab) ; 
return 0; = 


[BRRKRKKKKKEKKEKKEKKKKEKEKEKKEKREKKKKEKKKEKEEKEKRKKEKEKEKKEKKEKKEKKKKRKKKKEKKEKEKK / 


Figure 1.11. Skeleton program: C source file (32-bit). Continues. 
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MRESULT EXPENTRY MainWndProc (HWND hwnd, ULONG msg, MPARAM mp1, => 


MPARAM mp2 ) 


Switch (msg) 


{ 
case WM_COMMAND: 


switch (SHORT1FROMMP (mp1) ) 


{ 
case MI_EXIT: 


WinPostMsg (hwnd, WM_QUIT, OL, OL); 


break; 


default: 
break; 


} 


break; 


case WM_ERASEBACKGROUND: 
return (MRESULT) TRUE; 
} 


return WinDefWindowProc (hwnd, msg, mol, mp2) ; 


Figure 1.11. Skeleton program: C source file (32-bit). Concluded. 


1.3 16-bit to 32-bit conversion summary 


Figure 1.11 is obviously a very trivial program, but does illustrate some of the 
differences you will most likely encounter when you convert your own applications 
to 32-bit. Before we move on, let us take a few moments to summarize the main 
changes that have taken place with the introduction of OS/2 version 2.0. 

First, look at Table 1.1 to familiarize yourself with the filenames for the main 
toolkit components that will be of interest to us in version 2.0. 


Table 1.1. Main toolkit components 


Product 


32-bit make 

32-bit compiler 

32-bit linker 

32-bit library 

32-bit debugger 

32-bit dialog box editor 

32-bit font editor (name unchanged) 
32-bit icon editor (name unchanged) 


Filename 


NMAKE.EXE 
ICC.EXE 
LINK386.EXE 
OS2386.LIB 
IPMD.EXE 
DLGEDIT.EXE 
FONTEDIT.EXE 
ICONEDIT.EXE 
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The first thing you should do after installing the C Set/2 compiler and developer’s 
toolkit is read the READ. ME files in the IBMC and TOOLKT20 directories. 

As was mentioned earlier, the easiest way to find out what needs to be converted 
is to run your code through the compiler. This is probably all right for a small mod- 
ule, but for one of any great size you would be advised to at least consider the 
following: 


1 Ifyou use // for comments then you should either change to /* */ to conform 
to the ANSI standard, or, if you prefer to keep // then use the /ss compiler 
option. 

2 Change the msg parameter for your window procedures from USHORT to 
ULONG. 

3 Change your MAIN statement; it now returns an integer and does not use 
cdecl, and on exit add a return 0; 

4 NULL has been redefined as ( (void *)0). This may cause you to receive 
many diagnostic messages. To overcome them, cast as appropriate or replace 
with 0. You will see this many times in the sample programs. 

5 Window locking, a function of OS/2 version 1.1, was removed with the intro- 
duction of OS/2 version 1.2. However, to maintain compatibility, the following 
functions kept Lock as a parameter, but it was ignored by OS/2. Now, with 
OS/2 version 2.0 these functions have had the Lock parameter removed so 
you will need to change the parameter list on any of those that you may 
have used: 


WinEnumDlgiItem 

WinLockWindow <= Removed from OS/2 V2 
WinQueryActiveWindow 

WinQueryCapture 

WinQueryClipbrdOwner 

WinQueryClipbrdViewer 

WinQueryFocus 

WinQuerySysModalWindow 

WinQueryWindow 

WinQueryWindowLockCount <= Removed from OS/2 V2 
WinWindowFromPoint 


6 All parameters that were defined as USHORT on the Dos... functions have 
changed to ULONG. 

7 All parameters that were defined as USHORT on the Win... functions have 
changed to ULONG except WinSetWindowUShort and WinSetDlgItem- 
Sort . 

8 In order to be consistent in function-naming conventions, that is, verb/object, 
some Dos... functions have been renamed: 


DosBufReset 
DosCaseMap 
DosChDir 
DosChgFilePtr 
DosCwait 
DosFindFirst2 
DosGetCollate 
DosGetCp 
DosGetCtryInfo 
DosGet DBCSEv 
DosGet InfoSeg 
DosGet Resource2 
DosInsMessage 
DosMkDir 
DosMkDir2 
DosNewSize 
DosOpen2 
DosQCurDir 
DosQCurDisk 
DosQFHandState 


(UEP Edd dbddddedy 
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DosResetBuffer 
DosMapCase 
DosSetCurrentDir 
DosSetFilePtr 
DosWaitChild 
DosFindFirst 
DosQueryCollate 
DosQueryCp 
DosQueryCtryInfo 
DosQueryDBCSEnv 
DosGet InfoBlocks 
DosGet Resource 
DosInsertMessage 
DosCreateDir 
DosCreateDir 
DosSet FileSize 
DosOpen 
DosQueryCurrent Dir 
DosQueryCurrent Disk 
DosQueryFHState 


DosQFSAttach 
DosQFSInfo 
DosQFileInfo 
DosQHandType 
DosQPathInfo 
DosQSysInfo 
DosQVerify 
DosRmDir 
DosSelectDisk 
DosSetFHandState 
DosSet ProcCp 
DosSet Prty 
DosSubAlloc 
DosSubFree 
DosSubSet 
DosSubUnset 
DosTimerAsync 
DosTimerStart 
DosTimerStop 


9 The set window position structure has changed: 


typedef struct _SWP 


{ 
ULONG 
LONG 
LONG 
LONG 
LONG 
HWND 
HWND 
ULONG 
ULONG 

} SWP; 


id: 


Cys 
we 
Yi 
x; 


rrr tq 


hwndiIinsertBehind; 


hwnd; 
ulReserved1; 
ulReserved2; 


{EUEEEELYEEYebededed 
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DosQueryFSAttach 
DosQueryFSInfo 
DosQueryFileiInfo 
DosQueryHType 
DosQueryPathInfo 
DosQuerySysInfo 
DosQueryVerify 
DosDeleteDir 
DosSetDefaultDisk 
DosSetFHState 
DosSet ProcessCp 
DosSet Priority 
DosSubAllocMem 
DosSubFreeMem 
DosSubSetMem 
DosSubUnsetMem 
DosAsyncTimer 
DosStartTimer 
DosStopTimer 


10 The switch-list block structure has changed. This structure is a combination of 
three structures, SWBLOCK, SWENTRY and SWCNTRL, as follows: 
typedef struct _SWBLOCK 


{ 
ULONG 
SWENTRY 
} SWBLOCK; 


cswentry; 


aswentry[1]; 


typedef struct _SWENTRY 


{ 


HSWITCH 
SWCNTRL 


} SWENTRY ; 


hswitch; 
swctl; 
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typedef struct _SWCNTRL 


{ 
HWND hwnd; 
HWND hwndiIcon; 
HPROGRAM lapeugels g- 
PID i1dProcess; —— 
ULONG i1dSession; —= 
ULONG WenVis ibid cy: = 
ULONG EbJump; = 
CHAR szSwtitle [MAXNAMEL+1]; 
ULONG bProgType; — 
} SWCNTRL> 


11 More library extension names now start with an underscore: 


_alloca -feve _ltoa _tzset 
_—ecvt ove _putenv _ultoa 
_fcloseall _itoa _rmtmp 


12 Finally, the two areas which may cause you more conversion effort than any 
other are memory management and semaphores. As you know, version 2.0 
uses a flat memory model and so removes the problems associated with mem- 
ory segmentation. This has meant a major application programming interface 
(API) redesign, and so if you made use of the 16-bit memory management 
API you will need to recode using the following API (their functions are 
self-explanatory): 


DosAllocMem DosGet SharedMem DosSubAl locMem 
DosAllocSharedMem DosGiveSharedMem DosSubFreeMem 
DosFreeMem DosQueryMem DosSubSetMem 

DosGetNamedSharedMem DosSetMem DosSubUnsetMem 


The area of semaphores has also been totally redesigned and so, like memory 
management, will cause some effort to convert. The 32-bit semaphore API 
comprises the following (again, their functions are self-explanatory): 


DosCreateEventSem DosCreateMutexSem DosCreateMuxWaitSem 
DosOpenEventSem DosOpenMutexSem DosOpenMuxWaitSem 
DosCloseEventSem DosCloseMutexSem DosCloseMuxWaitSem 
DosResetEventSem DosRequestMutexSem DosWaitMuxWaitSem 
DosPostEventSem DosReleaseMutexSem DosAddMuxWaitSem 
DosWaitEventSem DosQueryMutexSem DosDeleteMuxWaitSem 
DosQueryEventSem DosQueryMuxWaitSem 


Just following these simple steps should ensure that the number of diagnostic 
messages you receive is reduced to a minimum, making your 16-bit to 32-bit con- 
version a very quick and easy process. 


2 
General window processing 


This chapter looks at how you can control your application’s main client window. 
It covers topics such as window positioning on start-up, controlling window move- 
ment, position and sizing, and subclassing. But, to begin with, let us look at some 
very common mistakes that most programmers (and that includes me) make when 
starting to code for Presentation Manager. 


2.1 Some common errors 


2.1.1 Don’t use hwndFrame during WM_CREATE 


If you define hwndFrame as a global variable—not good practice—then you can- 
not use it during your WM_CREATE message processing as it is not assigned until 
that processing is complete. Instead, define it as an auto, or static, variable and 
use WinQueryWindow to obtain the client’s parent window handle. For 32-bit 
only: 


hwndFrame = WinQueryWindow(hwnd, QW_PARENT) ; 


Do not forget that this is one of those functions that has had its parameter list 
changed due to the removal of the lock parameter. So if you are still coding for 
OS/2 V1.x then use: 


hwndFrame = WinQueryWindow(hwnd, QW_PARENT, FALSE) ; 


2.1.2 Window not being displayed 


Sometimes you may find that when you attempt to create a window it does not 
display and the return code from WinCreateStdWindow is NULL. The most 
common cause of this problem is that you have used the frame creation flag of 
FCF_STANDARD, which tells Presentation Manager that you are including a 
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menu, icon and accelerator resource. The flags included are: 


PCF “PT TREBBAR Title bar 

FCF _ SYSMENU System menu 

FCF _MINMAX Minimize and maximize icons 
FCF SIZEBORDER Sizing border 

FCF TASKLIST Add program name to task list 
FCF_MENU Menu bar 

FCF _ACCELTABLE Accelerator table 


FCF_SHELLPOSITION Let Presentation Manager position and 
size window 
PCF ICON Teor 


If you have failed to define any one of these then your window is not created. 

If you do require a standard window, but for some reason you do not require a 
particular resource, such as an accelerator table, then you could set up your own 
identifier, for example FCF_STDNOACCEL, and use that in your call to 
WinCreateStdwindow: 


#define FCF_STDNOACCEL FCF_STANDARD & ~FCF_ACCELTABLE 


You should also check that all resources belonging to a frame have the same ID, 
so check your resource file to ensure, for example, that your menu does not have a 
different ID to your icon, or else the create will fail. See the following resource file 
extract where ID MAINWND is the window ID: 


ACCELTABLE ID_MAITNWND 
BEGIN 

VE_F3, MI_EBXIT,  WiIRTUALKEY 
END 


ICON ID_MAINWND wingen.ico 


MENU ID_MATNWND PRELOAD 
BEGIN 


END 


One other area to look at is your WM_CREATE message processing. If you return 
TRUE from this then window creation is discontinued. If, however, the create does 
not fail, that is, you receive a valid handle, then the most likely cause is that you do 
not have the WS_VISIBLE style specified for the window. The default is, in fact, 
invisible. It is also possible that if you are not using WinSetWindowPos to size 
and position the window yourself, see Sec. 2.2, you may have omitted the frame 
creation flag FCF_SHELLPOSITION for that window. 
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2.2 Initial display of the client window 


2.2.1 Starting with a predetermined window size and position 


If you do not wish your window size and position to be set by Presentation 
Manager then in your WinCreateStdWindow call do not specify the 
style WS_VISIBLE, and do not _ specify the frame creation flag 
FCF _SHELLPOSITION. Instead, follow WinCreateStdWindow with a call to 
WinSetWindowPos specifying your own size and position: 


HWND hwndFrame, 
hwndClient; 

ULONG flFrameFlags; 

LONG 1k Left =100, /* Initial window position= (100, 100) */ 
iY Bot 2# 100, 7* Initial window e122 = (400, 300) *7 
lWwidth =400, 
lHezght = 300; 

flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF_MENU | 

FCF_SIZEBORDER | FCF_MINMAX | FCF_ACCELTABLE | 
PCR ICON; 
hwndFrame = WinCreateStdwindow(HWND_ DESKTOP, 0, 
&flFrameFlags, "WinClass", 
"Window Tltle". Oo, 
(HMODULE) NULL, ID _MATINWND, 
&hwndClient) ; 
WinSetWindowPos (hwndFrame, HWND_TOP, 1X Left, 1Y Bot, 
lWidth, lHeight, SWP_SIZE | SWP_MOVE | 
SWP_SHOW | SWP_ACTIVATE) ; 


If you do use WS_VISIBLE and FCF_SHELLPOSITION as well as WinSetWin- 
dowPos then when the application starts Presentation Manager will display your 
window in the default position and then disappear to be replaced with the window 
of your choice. 

Ensure that you always use SWP_SIZE | SWP_MOVE on the WinSetWindow- 
Pos call otherwise your size and start position will not be honoured. Also, use 
SWP_SHOW to make your window visible, and SWP_ACTIVATE to give your win- 
dow the focus. But beware, this will take the focus away from your users, even if 
they are typing into another window at the time it becomes active. This can be 
annoying. 

Note: A common mistake in this area is to use FCF_SHELLPOSITION, 
which is included when you specify FCF_STANDARD, and to trap the 
WM_CREATE message with the aim of resizing the window. But Presenta- 
tion Manager acts on the FCF_SHELLPOSITION after the WM_CREATE 
message and so your size and position is ignored. 
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2.2.2 Starting minimized or maximized 


To create a window in its minimized or maximized state use SWP_MINIMIZE or 
SWP_MAXIMIZE respectively in a call to WinSetWindowPos, but make sure 
you specify a size to which the window will be restored. 


To start in the minimized state: 


SWP swp; 

Swp.x = 100; [RA sacias ae eR Ro eS ef 
Bawo.y = LOO; /* Set restored size/position */ 
Swo.cx = 200; [Padaue me awe stne heme eS ae wf 


swp.cy = 200; 


WinSetWindowPos (hwndFrame, HWND_TOP, swpo.xX, Swp.y, SWD.CxX, 
Swp.cy, SWP_SIZE | SWP_MOVE | SWP_SHOW | 
SWP_ACTIVATE | SWP_MINIMIZE) ; 


To start in the maximized state: 


wo. = LOO; [Rete Se eee ei mi ee a i e's x / 
swp.y = LOO; /* Set restored size/position */ 
Sswp.cx = 200; [Rennes eee ee en eS Se # 


swp.cy = 200; 


WinSetWindowPos (hwndFrame, HWND_TOP, swo.xX, Swp.y, SWD.Cx, 
Swp.cy, SWP_SIZE | SWP_MOVE | SWP_SHOW | 
SWP_ACTIVATE | SWP_MAXIMIZE) ; 


2.2.3 Starting in the background 


To start with your client window in the background so that it does not take the 
focus away from your user, use WinSetWindowPos with the Behind parameter 
set to HWND_BOTTOM and SWP_ZORDER as one of the options: 


WinSetWindowPos (hwndFrame, HWND_BOTTOM, 1X _ Left, lLY_Bot, 
lWidth, lHeight, SWP_SIZE | SWP_MOVE | 
SWP_SHOW | SWP_ZORDER) ; 


This is now the recommended way to start applications, especially if they take a 
while to initialize. The reason is that if the user starts it and then continues to type 
into another application’s window, when your application finally shows it comes to 
the top and takes the focus. This can cause some annoyance to the user. 


2.2.4 Positioning on screens with different resolution 


If you use absolute values when initializing the size of your window and then run 
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your application on a machine which has a screen of different resolution, you may 
find that your window overlaps the screen, or appears in an unexpected position. 
To overcome this you should not use absolute values but ask the system for the 
screen dimensions first by using WinQuerySysValue. This will give you back 
the correct number of picture elements (pels) for the screen you are running 
under. You can then use these values in WinSetWindowPos to set your win- 
dow’s size and position correctly. 

As an example, if you want your window to occupy the entire screen, use the 
following sample code. 


HWND hwndFrame, 
hwndClient ; 

ULONG flFrameFlags; 

LONG 1ScrHeight, 
lScrwidth: 


flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF_MENU | 
FCF_SIZEBORDER | FCF_MINMAX | FCF_ACCELTABLE | 
FCF_NOBYTEALIGN; 


hwndFrame = WinCreateStdwWindow(HWND_DESKTOP, 0, 
&flFrameFlags, "WinClass", 
"Window Title", 0, 
(HMODULE) NULL, ID _MAINWND, 
&hwndClient) ; 


1ScrWidth = WinQuerySysValue (HWND_DESKTOP, SV_CXSCREEN) ; 
/* Returns width of screen */ 

1ScrHeight = WinQuerySysValue (HWND_DESKTOP, SV_CYSCREEN) ; 
/* Returns height of screen */ 


WinSetWindowPos (hwndFrame, HWND_TOP, 0, 0, 1ScrWidth, 
1ScrHeight, SWP_SIZE | SWP_MOVE | SWP_SHOW 
SWP_ACTIVATE) ; 


Make sure you include a frame creation flag of FCF_NOBYTEALIGN when you 
create your window, otherwise it will align on eight pel boundaries and will not 
fit the screen exactly. If you do not wish your window to be this large then, of 
course, you can set the 1ScrWidth and 1ScrHeight variables to any suitable 
values and, if necessary, centralize it (see Sec. 2.2.5). 


2.2.5 Centralizing your window 


To centralize your window on the screen, first use WinQuerySysValue to obtain 
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the screen resolution, and then calculate the appropriate coordinates and call 
WinSetWindowPos. For example: 


HWND hwndFrame, 
hwndClient; 

ULONG flFrameFlags; 

LONG 1X Left, 
LY Bot, 
lHeight, 
1Width, 
LECYHEILEHC,; 
LSerwiath: 


flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF_MENU | 
FCF _ SIZEBORDER | FCF_MINMAX | FCF_ACCELTABLE | 
FCF NOBYTEALIGN; 


hwndFrame = WinCreateStdwindow(HWND_ DESKTOP, O, 
&flFrameFlags, "WinClass", 
"Window Title", 0, 
(HMODULE) NULL, ID_MAINWND, 
&hwndClient) ; 


1ScrWidth = WinQuerySysValue (HWND_DESKTOP, SV_CXSCREEN) ; 
/* Returns width of screen */ 

1ScrHeight = WinQuerySysValue (HWND_DESKTOP, SV_CYSCREEN) ; 
/* Returns height of screen */ 


Width = 400; 
lHeight = 300; 


IX Lett = (lSerWidth = 1lWidth) / 2: 
lY Bot = (LSerHeight -— LHeight) / 2; 


WinSetWindowPos (hwndFrame, HWND_TOP, 1X Left, 1Y Bot, 
lWidth, lHeight, SWP_SIZE | SWP_MOVE | 
SWP_SHOW | SWP_ACTIVATE) ; 


By doing this you can be sure that your window will always be centred, no matter 
what screen device your program is running on. 

Depending on your application it may be more appropriate to set the window 
size as a percentage of the screen size, for example: 


lWieth = 1Serwidth; 3: 
lHeight = 1ScrHeight/2; 
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2.3 Controlling movement, position and size 


2.3.1 Prohibiting window movement 


There may be occasions when you require the movement of your main window to 
be prohibited some time during your processing. This could be achieved by sub- 
classing the frame window, but a much easier way is to call WinEnableWindow 
to disable the title bar, which has an ID of FID_TITLEBAR. This also has the 
added advantage of greying out Move from the window’s system menu. 


To prohibit window movement: 


hwndFrame = WinQueryWindow(hwnd, QW_PARENT) ; 
WinEnablewindow (WinWindowFroml1D(hwndFrame, FID TITLEBAR), 
FALSE} 3 


To restore window movement: 


hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 
WinEnablewWindow (WinWindowFromiID(hwndFrame, FID TITLEBAR), 
TRUB) * 


2.3.2 Keeping your main window on top 


If you require to keep your main window in view at all times, that is, on top of all 
other windows, a very simple way of doing this is to start a timer and in the 
WM_TIMER message processing for your client window make a call to WinSet- 
WindowPos using the SWP_ZORDER option: 


#define ID_TIMER_TOP 1 


/* ac Ap a eg eps es cc Sh a hag ay ag ay a eh ga es Eh et a ges ee ed he ee De, BR pas * / 
/* At a convenient position start a 500 millisecond timer */ 
j* ha hea pas ya ge ee et a gaa Beaty ak eyes aay Bey ee yn gS ne cm, Eatery, ye Nn eee, Sa eee ge as eee Sah we aa | 


WinStartTimer (hab, hwndClient, ID_TIMER_ TOP, 500); 


f PEARSE SELREAG LARA CAAT RAC ARAR SAAR AERA A Raa AE KR Ef 


/* aE ale Pa ee eh TE any th a ek fees Gee wan pine’ CaV cheat vale hls se Sh A eg ptt ee eat et le ek * / 
/* Trap the timer message in your window procedure. ae | 
/* pea ceca ace ats ime, Set a ey peach ee eae Ps ee a ay Ae te ih ed Cee is cat eho iat CA 2 tt Ste * / 


case WM_TIMER: 
hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 


24 OS/2 Presentation Manager Programming 


WinSetWindowPos (hwndFrame, HWND_TOP, 0, 0, 0, 0, 
SWP_ZORDER) ; 
break; 


Be careful doing this sort of thing: depending on your application it may be 
considered to be ‘antisocial’ behaviour. However, there are times when this may 
be quite acceptable, for example, for a clock program. Even then it should be 
offered as a choice. 

Use WinStopTimer to stop the timer when you close down your application, 
or before if it is no longer required: 


WinStopTimer (hab, hwndClient, ID_ TIMER TOP) ; 


2.3.3 Keeping a secondary window on top 


If you need to keep one of your application windows visible while you use another, 
maybe in order to keep your application’s status in view or for a tool palette, then 
make the window’s parent HWND_DESKTOP, and then use WinSet Owner to make 
its owner the application’s main window: 


fTFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF_NOBYTEALIGN | 
FCF_SIZEBORDER | FCF_MINMAX; 


hwndTopFrame = WinCreateStdWindow(HWND_DESKTOP, 0, 
&flTFrameFlags, 
"WinGen2", szTTitle, O, 
(HMODULE) NULL, O, 
&hwndTop) ; 

WinSetOwner (hwndTopFrame, hwndFrame) ; 


WinSetWindowPos (hwndTopFrame, HWND_TOP, 350, 100, 200, 200, 
SWP_SIZE | SWP_MOVE | SWP_SHOW | 
SWP_ACTIVATE) ; 


2.3.4 Restoring to a fixed size or position 


If you always want your window to be set to a particular size and/or position when 
it is restored then you can use the WinSetWindowUShort function with the 
relevant QWS_*RESTORE value(s) in your WM_MINMAXFRAME case statement. 
For example: 


case WM_MINMAXFRAME: 


[RRRKRKRKEKKKRKEEKKKKKEKREKEKKRKEKKEKKR EEK KEKKEKEKKRKKEKKKEKK KEKE / 


/* Restore window to (100,100) with a sizeof (200,200) */ 


[EKRRKKKRKKKERKERKEKREKKEKEKRERKERKEKEKKEKERKREREKRKKEKRREERKKEKKE KE / 
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hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 


WinSetWindowUShort (hwndFrame, QWS_XRESTORE, 100); 
WinSetWindowUShort (hwndFrame, QWS_YRESTORE, 100); 
WinSetWindowUShort (hwndFrame, QWS_CXRESTORE, 200 
WinSetWindowUShort (hwndFrame, QWS_CYRESTORE, 200 
break; 


/ 


) 
); 
A WM_MINMAXFRAME message is sent to your frame window whenever it 1s min- 
imized, maximized or restored: 


QWS_XRESTORE  x-coordinate of the position to which the window is restored 
QWS_YRESTORE  y-coordinate of the position to which the window is restored 
OWS _CXRESTORE Width to which the window is restored 
QWS_CYRESTORE Height to which the window is restored. 


As was mentioned earlier, only do this if there are legitimate reasons for enfor- 
cing a restored size or position, to prevent your application from being branded 
‘antisocial’. It is better to allow the system to restore the window to its previous 
size and position. However, there may be times when enforcement could be con- 
sidered the correct action. 


2.3.5 Controlling window size 


Presentation Manager restricts the minimum size to which a window can be sized. 
If you have to allow your window size to be less then you must subclass your frame 
window and process the WM_QUERYTRACKINFO message. This message is sent to 
your window procedure whenever the window is moved or sized. 

You can, of course, extend this to ensure that your window is always square, or 
never smaller or greater than a certain size. In the following example the window is 
allowed to be sized down to 25 x 25 pels: 


/* Declare your subclassed window procedure and pointer to */ 


/* the default frame window procedure ar 
j/* a a ea A pc Ng ay SN IN pg, aes a Nea a ae Nn, Se ce ach a es au Mas CS nee ee a 
MRESULT EXPENTRY SubFrameProc (HWND, ULONG, MPARAM, MPARAM) ; 

PF NWP OldFrameProc; 

f* Py ag eh pe ay aS a pe ag peme ny wey Seley eee eae ee ee eae ce tee ee ray eres ye ete a eS * / 
/* Immediately after creating your main window store the ef 
/* address of the default frame window procedure oe 
/* Sk ahd ase ks eet ec, ae tere Ce fae Cael Ee, ha dae ale pee Set An ee te cn ne, Ma eee at ee et Seah a a oe he ht eee ls pt a i 


OldFrameProc = WinSubclassWindow (hwndFrame, 
(PFNWP) SubFrameProc) ; 
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/* Sy Eas See pa a a es Ma, ty eh en ah Ley BE Ns og AO BS eh ec 9 oe ek ates Ree bee me A aS fet ee ERE ee ee hy ke vee Od bt SE Bw eh a ee * 
/* The following example procedure allows your window to be */ 
/* reduced in size to 25 x 25 pels a | 
/* i as ac ae, Sa a eh A es oe cee pee yee, Bee ee ty gy get ee pt ed as es ae, Ee ea By * / 


MRESULT EXPENTRY SubFrameProc (HWND hwnd, ULONG msg, 
MPARAM mp1, MPARAM mp2 ) 


{ 
PTRACKINFO ptrack; 
Switch (msg) 
{ 
case WM_OQUERYTRACKINFO: 
/* 8 a ft sh aa ci Ah Pag a Fa oh See ag Bs gh Ae Be Nh es Ba te ne a hn Ee el a te ge he * / 
/* Invoke the default frame window procedure first in = 
/* order to update the tracking rectangle to the a: 
/* new position = 
/* a Eh ny a Race ag i hg ae Pe Bes BS, AE 8 a a se ee a sp ST Ea, Se x 
OldFrameProc (hwnd, msg, mpl, mp2); 
ptrack = (PTRACKINFO)mp2; 
ptrack=-sptlMinTrackSi ze.x = 25; 
ptrack->ptlMinTrackSize.y = 25; 
return ( (MRESULT}) TRUE) : 
} 
return OldFrameProc (hwnd, msg, mpl, mp2) ; 
/* Pass all other messages to */ 
} /* the default procedure mf 


Very briefly, when you subclass a window you have the opportunity to alter the 
standard processing of that window, as this example shows. Whenever a frame 
window receives a WM_QUERYTRACKINFO message the default frame procedure 
does some processing, for example, drawing the tracking rectangle and maintain- 
ing its size when you move the mouse pointer. We still need this, so we call the 
default procedure first and then add our bit of code, in this case reset the minimum 


track size. For all other messages we pass them straight on to the default procedure 
for processing. 


2.3.6 Detecting when minimize/maximize/restore is occurring 


To check if your window is about to be minimized, maximized or restored, trap the 
WM_MINMAXFRAME message: 


case WM_MINMAXFRAME: 
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1f£ (((PSWP) mp1) ->fl & SWP_MINIMIZE) 


{ 
/* Fy eh ams a a eg ay gate snag ee eS en * / 
/* About to be minimized */ 
j* ee ae eh reas Sag ge ge ee ey a ge ee * / 
} 
else 
1£ (((PSWP)mp1)->fl & SWP_MAXIMIZE) 
{ 
/* eee Rat, ae sian yo eae VE, ee, Peay ere a 
/* About to be maximized */ 
/* ee eg fee Be ig a ee eA ee * / 
} 
else 
if (((PSWP) mp1) ->fl & SWP_RESTORE) 
{ 
/* PANGS ARG Deine eS et eg ea, ae ey Se * / 
f/* About to be restored */ 
/* ne ee Cn Oe ey ne ee Pe eT Oa x 
} 
break; 


Do not forget, the SWP structure changed in version 2.0. If you need to do this 
under version 1.x then fl should be fs. 


2.3.7. Detecting if your window is minimized/maximized 


To check if your window is already minimized or maximized, use WinQuery- 
WindowULong with the QWL_STYLE index. This call interrogates the window 
words for the unsigned long integer value which represents the window style. If 
this value is ANDed with either WS_MINIMIZED or WS_MAXIMIZED and the 
result is true, then the window is minimized or maximized respectively: 


hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 


1£ (WinQueryWindowULong (hwndFrame, QWL_ STYLE) & 
WS_MINIMIZED) 


/* Window 1S minimized */ 


1£ (WinQueryWindowULong (hwndFrame, QWL_ STYLE) & 
WS_MAXIMIZED) 


/* Window is maximized */ 
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2.3.8 Minimizing your window 


If you need to minimize your window automatically from your client’s window 
procedure, call WinSetWindowPos specifying SWP_MINIMIZE: 


hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 


WinSetWindowPos (hwndFrame, NULL, 0, 0, 0, 0, SWP_MINIMIZE) ; 


2.3.9 Obtaining window size 

To obtain the size of a window use the WinQueryWindowRect function: 
RECTH,. relwins 

WinQueryWindowRect (hwnd, &rclWin) ; 


For top-level windows this will return the values in screen coordinates. For child 
windows the coordinates will be in parent coordinates. If you need to query the 
screen coordinates of child windows, which your client area is (child of the frame 
window), follow WinQueryWindowRect with a call to WinMapWindow- 
Points: 


hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 


WinQueryWindowRect (hwnd, &rclWin) ; 
WinMapWindowPoints (hwnd, hwndFrame, (PPOINTL) &rclWin, 2); 


2.3.10 Prohibiting window minimization/maximization 


To prevent the user from minimizing or maximizing your window, assuming you 
have FCF_MINMAX defined for the window, use WinEnableWindow with the 
handle of the minimize/maximize icon and a value of FALSE for the new 
enabled state parameter. You can obtain the minimize/maximize handle by 
using WinWindowFromID specifying the frame ID FID_MINMAX. To restore 
minimization and maximization call WinEnableWindow with the new 
enabled state parameter set to TRUE: 


hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 


fs as Ye Ne ND meg eek RN fad eg es ge ee ed * / 
/* Prohibit min/max */ 
/* a a aaa a et fe sn ps et * / 


WinEnablewindow (WinWindowFromID(hwndFrame, FID _MINMAX), 
FALSE) ; 
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f* ogee yet st ena ea a yt * / 
/* Restore min/max */ 
/* a can aera ba oe ne ny ECE WEE ee a | 


WinEnablewindow (WinWindowFromID (hwndFrame, FID _MINMAX), 
TRUE) ; 


2.3.11 Prohibiting window sizing 


There may be occasions when it is necessary to prohibit the sizing of your main 
window during the course of your processing. This can be achieved by changing 
the window’s style from FS_SIZEBORDER to FS_DLGBORDER using WinSet - 
WindowULong: 


hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 


WinSetWindowULong (hwndFrame, QWL_STYLE, 
(WinQueryWindowULong (hwndFrame, 
QWL_STYLE) & ~FS_SIZEBORDER | 
FS DLGBORDER) ); 


WininvalidateRect (hwndFrame, NULL, TRUE) ; 


This also greys out Size from the window’s system menu. You will also need a call 
to WinInvalidateRect to ensure the frame is updated immediately. 


To restore sizing using WinSetWindowULong use: 
hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 


WinSetWindowULong (hwndFrame, QWL_STYLE, 
(WinQueryWindowULong (hwndFrame, 
QWL_ STYLE) & ~FS_DLGBORDER | 
FS SIZEBORDER) } > 


WiniInvalidateRect (hwndFrame, NULL, TRUE) ; 
Another method is to use WinSetWindowBits. To prohibit sizing use: 
hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 


WinSetWindowBits (hwndFrame, QWL_ STYLE, (~FS_SIZEBORDER 
FS DLGBORDER) , 
(FS SIZEBORDER | 
FS DLGBORDER) ) ; 


WininvalidateRect (hwndFrame, NULL, TRUE) ; 


To restore sizing use: 
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hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 


WinSetWindowBits (hwndFrame, QWL_STYLE, (FS _SIZEBORDER | 
~FS_DLGBORDER) , 
(FS SIZEBORDER | 
PS. DLGBORDER) ) ; 


WinInvalidateRect (hwndFrame, NULL, TRUE); 


2.4 Class names 


When using WinQueryClassName to obtain the class name of a window, a 
necessity when using window enumeration (see Chapter 10), Presentation Man- 
ager does not return the string name, for example WC_BUTTON, but an integer 
atom in a string of the form "#nnnnn". You can, of course, obtain the name 
by querying the system atom table using WinQueryAtomName (see the sample 
program in Chapter 8 for an example). However, the most common are shown 
as follows: 


ea WC_FRAME 

ee" WC_COMBOBOX 
"#3" WC_BUTTON 
"H4" WC_MENU 

"#5" WC_STATIC 
"#6" WC_ENTRYFPIELD 
"e7" WC_LISTBOX 
"#8" WC_SCROLLBAR 
‘fo WC_TITLEBAR 
"#10" WC_MLE 

"#32" WC_SPINBUTTON 
Poa WC_CONTAINER 
"#34" WC_SLIDER 

Ue 3o" WC_VALUESET 
"#36" WC_NOTEBOOK 


For a complete list look in the header file PMWIN.H supplied with the version 2.0 
developer’s toolkit. For an example of use see Sec. 10.2. 


2.5 Obtaining the process ID of the active window 


To determine which window is currently active and to obtain its process ID, first 
call WinQueryActiveWindow. This returns the handle of the active window. 
Using this we then call WinQueryWindowProcess to obtain the process ID 
of that window. Note that for a video input/output (VIO) window or workplace 
object this will be the process ID of the shell. The following code fragment obtains 
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the active window’s process ID and displays it: 


MRESULT EXPENTRY MainWndProc (HWND hwnd, ULONGmsg, MPARAMmp1, 
MPARAM mp2) 


RECTL rel: 

HPS hps; 

HWND hwndActiveWin; 
PID pid; 

TLD Eid: 

CHAR szText[20]; 


case WM_PAINT: 

hps = WinBeginPaint (hwnd, (HPS)NULL, (PRECTL) NULL) ; 

hwndActiveWin = WinQueryActiveWindow (HWND_DESKTOP) ; 

WinQueryWindowProcess (hwndActiveWin, &pid, &t1d); 

sprinti(ezText, "Process 1D =%d", pid); 

WinQueryWindowRect (hwnd, &rcl); 

WinDrawText (hps, strlen(szText), szText, &rcl, 
SYSCLR_WINDOWTEXT, SYSCLR_WINDOW, DT_LEFT | 
DT ERASERECT) ; 

WinEndPaint (hps) ; 

break; 


case WM_TIMER: 
/* Force a WM_PAINT message */ 
WiniInvalidateRect (hwnd, NULL, TRUE) ; 
break; 


To display the ID we use WinDrawText, but first we need the size of the win- 
dow, which is obtained by calling WinQueryWindowRect. To left-justify the text 
use the option DT_LEFT; use the option DT_ERASERECT to clear the window 
before drawing. 

To force the window to be painted, and hence update the process ID, we start a 
half second timer, and in the WM_TIMER case statement we invalidate the rectangle 
by calling WinInvalidateRect. Note that you never send yourself a 
WM_PAINT message as it is not really possible to determine its parameters— 
only Presentation Manager can do this. The correct way is to call 
WinInvalidateRect and let the system generate the WM_PAINT message for 
you. Remember, you must always use WinBeginPaint and WinEndPaint in 
your WM_PAINT processing otherwise results may be unpredictable. 
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2.6 System modal window 


A simple way to prevent Alt-Esc and Ctrl-Esc from operating is to make your win- 
dow system modal, that is, the user can interact with only that window and no 
other application window in the system. This renders the control key sequences 
unusable until you remove system modality for that window. To make a window 
system modal use WinSetSysModalWindow in your WM_CREATE case state- 
ment, but do not forget to obtain hwndFrame using WinQueryWindow (see 
Sec. 2.1) 


case WM_CREATE: 


/* pp eat Nee ph Se at Spee as * / 
/* Make system modal */ 
/* sp a a ay ag a Nyce ah a Nh Ns * / 


hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 
WinSetSysModalWindow(HWND_DESKTOP, hwndFrame) ; 
break; 


case WM_xXxXx: 


7* a pcs fe ak ae eee ee Be ed aay 
/* Remove system modality */ 
/%* phys ay Nga ay Se ean is fea He te yt * / 


WinSetSysModalWindow(HWND_DESKTOP, NULL) ; 
break; 


For an example of a system modal application see Chapter 3. 


2.7 Saving your application’s current state 


This is an area that has changed with the introduction of the Workplace Shell 
in OS/2 V2.0, so we will look at the 16-bit and 32-bit implementations separately. 

First, the 16-bit. If you have a requirement to save your application’s current 
state of execution then you can make use of the WM_SAVEAPPLICATION mes- 
sage. This message is dispatched to your client window procedure when the user 
requests Save... from the desktop manager, or requests Shutdown from the 
desktop manager and checks the Save check box. You may want to save several 
different types of application data but probably the most common is the window’s 
size and its position on the desktop. 

In the 32-bit version, 2.0, there is no facility to do a desktop save except when 
you shut down the system. However, when an application is just about to close 
it receives a WM_SAVEAPPLICATION message anyway. Also, in this version a 
new pair of API functions have been introduced, WinStoreWindowPos and 
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WinRestoreWindowPos. With a call to WinStoreWindowPos, the window’s 
size, position and presentation parameters are automatically saved in the 
OS2.INI file. Calling WinRestoreWindowPos and WinShowWindow on ini- 
tialization will display the window in its previous state. Be aware that if you use 
the frame creation flag FCF_STANDARD then your window will not be restored 
to its previous size and position. This is because a standard frame window includes 
the style FCF_SHELLPOSITION, so the window will be sized and positioned by 
Presentation Manager instead. See also Sec. 2.2.1. 

The following sample code, both 16-bit and 32-bit, shows how to save the appli- 
cation’s size and position in OS2.INTI and restore next time it starts. 


To save size and position (16-bit): 


SWP Swp; 


case WM_SAVEAPPLICATION: 
WinQueryWindowPos (WinQueryWindow (hwnd, QW_PARENT, FALSE), 
&SWp) ; 
PrfWriteProfileData (HINI_USERPROFILE, "WinGen", 
"SizePos", &Swp, (ULONG) sizeof (swp)); 
return NULL; 


and to restore size and position: 


/* Ne a Sg aN aa ce eg ae fee Na i kc en re es a Em Sa it St ae es Ne eo * / 
/* This would probably go just after your WinCreateStdwindow * / 
/* eall ~y 
/* ot ea a a a hn Fa ah Fi aD ce a pa a a ah ng ts a ES Es ce a wy ee eh nD eg Sel a teh * 


ULONG ulDataLength; 


ulDataLength = sizeof (swp) ; 
if (!PrfQueryProfileData (HINI_USERPROFILE, "WinGen", 
"SizePos", &swp, &ulDataLength) ) 


Swp.x = 100; 78 aoe See See eee eee eee * / 
ewo.y = LOC; /* Profile not found so use defaults */ 
Sswp.cx = 200; PRP sa RO See et oe as Soe * / 
Sswo.cy = 200; 


} 

WinSetWindowPos (hwndFrame, HWND_TOP, swp.x, Swp.y, SWD.Cx, 
Swp.cy, SWP_SIZE | SWP_MOVE | SWP_SHOWw | 
SWP_ACTIVATE) : 


To save size and position (32-bit): 
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case WM_SAVEAPPLICATION: 
WinStoreWindowPos("WinGen", "SizePos", 
WinQueryWindow (hwnd, QW_PARENT) ) ; 
return NULL; 


and to restore size and position: 


<= Se fe a a a ge ee Neer a ea a pc a a ls oo eb eg as Cee eee Spek Ue eas te ce Be * / 
/* AS inthe 16-bit version this would probably go just after */ 
/* your WinCreateStdwWindow call a 
/* be ees ame Pans ec ta ed fee) Na es hs an ss ee ss Fy, Sek oe te A Ae ee At Ee ed oy he PS Ng eek es ee ey ee et hee * / 
if (!WinRestoreWindowPos("WinGen", "SizePos", hwndFrame) ) 


WinSetWindowPos (hwndFrame, HWND_TOP, 100, 100, 200, 200, 
SWP_SIZE | SWP_MOVE | SWP_SHOW | 
SWP_ACTIVATE) ; 
else 
WinShowWindow (hwndFrame, TRUE) ; 


2.8 Changing the window title 


To change the window title use WinSetWindowText to set the frame window 
text: 


hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 


WinSetWindowText (hwndFrame, "New Title"); 


2.9 EXE name appearing in the title bar 


You may sometimes notice that your title bar contains the program name as part 
of the title. This happens because you specified FCF_TASKLIST for the window. 
To overcome this, omit this style and add the program to the window list yourself. 
See Sec. 13.3.1 for details. 


2.10 Removing the title bar 


To remove the title bar from a window, change its parent to HWND_OBJECT. To 
replace it again set its parentage back to the original. After making any changes 
you must send a WM_UPDATEFRAME message to the frame window. 


static HWND hwndFrame, 
hTitleBar; 
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/* ae eg ee ee eens re eee * / 
/* Remove title bar */ 
/* Nn gee Foe See eg a ee cg telat eee z 


hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 
hTitleBar = WinWindowFromID(hwndFrame, FID_TITLEBAR) ; 
WinSetParent (hTitleBar, HWND_OBJECT, FALSE); 
WinSendMsg (hwndFrame, WM_UPDATEFRAME, 

MPFROMLONG (FCF_TITLEBAR), OQ); 


/* ae i a yey ee ee, a ee ce * / 
/* Replace title bar */ 
f= ass itt nag sO Se ee ee oe * y 


WinSetParent (hTitleBar, hwndFrame, FALSE); 
WinSendMsg (hwndFrame, WM_UPDATEFRAME, 
MPFROMLONG (FCF _TITLEBAR), QO); 


Note that if you have a system menu, menu bar and minimize/maximize icons you 
will have to set their parent to HWND_OBJECT also. See the SWAPMON program 
in Chapter 14 for an example. 


2.11 Sending/posting a message 


When you send a message to a window using WinSendMsg, it does not go into a 
message queue, but makes a synchronous call to the window procedure associated 
with that window, and does not return until that window procedure returns. 

When you post a message using WinPostMsg, the message is placed in the 
queue in the form of a QMSG structure and processing continues. This structure 
comprises the familiar window handle, message ID and message parameters along 
with a timestamp and the mouse pointer position. WinGetMsg then removes the 
QMSG structure from the queue and WinDispatchMsg takes it and extracts the 
(hwnd, msg, mol, mp2) values. It then effectively does a WinSendMsg with 
these parameters and, just like WinSendMsg, does not return until the window 
procedure it called returns. 

If you wish to communicate with another thread and you use WinPostMsg in 
the sending thread then that thread does not require a message queue. If, on the 
other hand, you use WinSendMsg then the sending thread must have a message 
queue. See Sec. 12.2 for more information. 


2.12 Sending a WM_COMMAND message 


To send a WM_COMMAND message to your window procedure, for example to simu- 
late the pressing of a button or selecting a menu option, use WinSendMsg with 
mpi set to the relevant command value. In the following example we simulate 
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the pressing of a delete pushbutton which has been defined with the value 
ID DELETE: 


WinSendMsg (hwnd, WM_COMMAND, MPFROMSHORT (ID_DELETE) , 0) ; 


2.13 Sample program 


This program opens two windows (Fig. 2.1), a main client window, and to its right, 
another top-level window. The initial size and position of the main window are 
either obtained from the OS2.INI file if previously saved, or set explicitly. The sec- 
ondary window’s size and position are always set explicitly. The main window’s 
frame is subclassed so that its size can be reduced to as small as 25 x 25 pels. 
Because an icon has not been supplied with this program the system’s standard 
application icon has been used. 

The main window displays the process ID of the active window and the other 
window just displays a text string and stays on top of all other windows, including 
the main window. In order to keep these windows on top of the desktop, and to 
ensure that the active process ID is updated regularly, we start a half-second 
timer. This causes a WM_TIMER message to be sent to our client window every 
half-second which we trap to force our windows to the top. We then invalidate 
the client window which in turn causes a WM_PAINT message to be sent, during 
which we update the process ID. 

If you press mouse button 1 when the pointer is over the main window, the win- 
dow’s size and position are fixed, the minimize and maximize buttons are disabled 
and the title text is changed. Pressing mouse button 2 returns the window to its 
normal state. 

When the main window is minimized, maximized or restored it sounds a short beep 
to verify that a WM_MINMAXFRAME has been sent. You can also minimize it by select- 
ing Minimize from the menu bar. Because the other top-level window has its owner 


ar am owned by WinGen 





Figure 2.1. General window control output. 
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set to the main window, it is also minimized when the main window is minimized. 
When the windows are restored, the main window is forced to position (100, 100) 
with a size of (200, 200). The other window assumes its previous size and position. 

Whenever you quit from this program, or shut the system down when it is run- 
ning, it will receive a WM_SAVEAPPLICATION message. We then save the current 
state of the application. In this case only the size and position are relevant, but in a 
real application there may be many other attributes that you may wish to save so 
that next time it starts it can be restored to the same state. 

As mentioned in Chapter 1, the make file, link control file and the module defi- 
nition file are similar for all the programs in this book, except the sample applica- 
tion in Chapter 14, and so we only show here the program’s header file, see Fig. 2.2, 
the resource file, see Fig. 2.3, and the C source file, see Fig. 2.4. 


#define ID_MATINWND 200 
#define ID_TOPWND FAG RI 
#define TD TITLE A002 
#define LD_TTITE 203 
#define MI_EXIT 300 
#define MI_ RESUME 301 
#define MI_MIN 302 


Figure 2.2. General window control: header file. 


tinclude <os2 .h> 
#include "wingen.h" 


STRINGTABLE PRELOAD 

BEGIN 
ID TITLE, "General Window Control" 
[ID_TTITLE, "Topmost Window" 

END 


ACCELTABLE ID_MATNWND 


BEGIN 
VK_F3, MI_ERIT, VIRTUALKEY 
END 
MENU ID_MATNWND PRELOAD 
BEGIN 
MENUITEM "~Minimize", MI_ MIN, Mis TEXT 
SUBMENU "Erxit", z 
BEGIN 
MENUITEM "~Exit Program\tF3", Mi EALT, MIS TEAT 
MENUITEM "~Resume Program", MI RESUME, MIS PRAT 
END 
END 


Figure 2.3. General window control: resource file. 
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#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#include 
#include 
#include 


#include 


PF NWP 


MRESULT 
MRESULT 
MRESULT 


[RRKKKKK 


OS/2 Presentation Manager Programming 


INCL_WINWINDOWMGR 
INCL_WINFRAMEMGR 
INCL_WINSWITCHLIST 
INCL_WINSYS 
INCL_WINSHELLDATA 
INCL_WINTIMER 
INCL_WINPOINTERS 
INCL_WININPUT 
INCL_WINTRACKRECT 
INCL_WINWORKPLACE 


“os? his 
<string.h> 
“stcdio.he 


"Wwingen.h" 
OldFrameProc; 


EXPENTRY MainWndProc (HWND, ULONG, MPARAM, MPARAM) ; 
EXPENTRY TopWndProc (HWND, ULONG, MPARAM, MPARAM) ; 
EXPENTRY NewFrame (HWND, ULONG, MPARAM, MPARAM) ; 


KKKKKEKKKKKKEKKERKKKKEKKEKEKKEKKKEKKKKKKKKEKKKKEK KKK / 


INT main (void) 


{ 
HAB 


HMQ 
HWND 


QMSG 
ULONG 


CHAR 


hab; 

hmq; 
hwndClient, 
hwndtTop, 
hwndFrame, 
hwndTopFrame; 
QmMmsg; 
flFrameFlags, 
flTFrameFlags; 
szTitle[80], 
s2TTitle(sul; 


SWCNTRL PomEntry ; 


[RRRKKKK 


KKKKKKKKKEKKEKKKKEKEKEKKKKKKEKEKEKEKEKKKRKEKKKKKKKKKKK EEK / 


hab = WinInitialize(0); 
hmg = WinCreateMsgQueue (hab, 0); 


Figure 2.4. 


General window control: C source file. Continues. 
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WinRegisterClass(hab, "WinGen", MainWndProc, 
CS _SIZEREDRAW, 0); 
WinRegisterClass(hab, "WinGen2", TopWndProc, 
CS_SIZEREDRAW, 0) ; 
WinLoadString (hab, (HMODULE)NULL, ID_TITLE, 
siveot(sezTitle), szTitle ); 
WinLoadString (hab, (HMODULE)NULL, ID_TTITLE, 
Sizeot (szTTitlie), szTTitle }; 
flTFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | 
FCF NOBYTEALIGN | FCF_SIZEBORDER | FCF_MINMAX; 
flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF_MENU | 
FCF _SIZEBORDER | FCF_MINMAX | FCF_ACCELTABLE | 
FCF_NOBYTEALIGN; 


hwndFrame = WinCreateStdWindow(HWND_DESKTOP, 0, 
&flFrameFlags, "WinGen", 
szTitle, 0, (HMODULE) NULL, 
ID_MAINWND, &hwndClient) ; 


OldFrameProc = WinSubclassWindow(hwndFrame, 
(PFNWP) NewFrame) ; 


if (!WinRestoreWindowPos("WinGen", "WinPos", hwndFrame) ) 
WinSetWindowPos (hwndFrame, HWND_TOP, 100, 100, 200, 200, 
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SWP_SIZE | SWP_MOVE | SWP_SHOW | SWP_ACTIVATE) ; 


else 
WinShowWindow (hwndFrame, TRUE) ; 


i * Sswo.x* = 0? 
ihe 
J Swp.cx = WinQuerySysValue (HWND_DESKTOP, 
fe SV_CXSCREEN) ; 
j* Swp.cy = WinQuerySysValue (HWND_DESKTOP, 
is SV_CYSCREEN) ; 


™. 
+ 
6p) 
3 
i 
| 


Figure 2.4. General window control: C source file. Continues. 
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i* WinSetWindowPos (hwndFrame, HWND_TOP, swp.x, Swp.y, 


f* Swo.Ccx, BWO.~cy, 

i SWP_SIZE | SWP_MOVE | SWP_SHOW | 

fe SWP_ACTIVATE) ; 

f*® } 

/* ey ad ef ee a ce ec as a i ee a ee ey Ss Sad aa a es ce ees Se es es a es ey eg eee 


hwndTopFrame = WinCreateStdwindow(HWND_DESKTOP, 0, 
&flTFrameFlags, 


"WanGen2", azTTitle, 0, 


(HMODULE) NULL, 0, 
&hwndTop) ; 


WinSetOwner (hwndTopFrame, hwndFrame) ; 


WinSetWindowPos (hwndTopFrame, HWND_TOP, 350, 100, 300, 
200, SWP_SIZE | SWP_MOVE | SWP_SHOW 
SWP_ACTIVATE) ; 


PomEntry .hwnd = hwndFrame; 
PgmEntry .hwndiIcon = (HWND) NULL; 
PgmEntry.hprog = (HPROGRAM) NULL; 
PgmEntry.idProcess = (PID) NULL; 


PgmEntry.1i1dSession (ULONG) NULL; 
PoamEntry.uchVisibility = SW VISIBLE: 
SWL_JUMPABLE; 
strcpy (PgmEntry.szSwtitle, szTitle); 

WinAddSwitchEntry (&PgmEntry) ; 


WinStartTimer (hab, hwndClient, 1, 500); 


PgmEntry . fbJump 


WinSendMsg (hwndFrame, WM_SETICON, 
(MPARAM) WinQuerySysPointer (HWND_DESKTOP, 
SPTR_APPICON, FALSE), 0); 

WinSendMsg (hwndTopFrame, WM_SETICON, 
(MPARAM) WinQuerySysPointer (HWND_DESKTOP, 
SPTR_APPICON, FALSE), 0); 


while (WinGetMsg(hab, &qmsg, (HWND)NULL, 0O, 0)) 
WinDispatchMsg(hab, &qmsg) ; 


WinStopTimer (hab, hwndClient, 1); 


WinDestroyWindow (hwndFrame ) ; 


WinRemoveSwitchEntry (WinQuerySwitchHandle(hwndFrame, 0)); 


Figure 2.4. General window control: C source file. Continues. 
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WinDestroyMsgQueue (hmq) ; 
WinTerminate(hab); 
return 0; 


} 


- KAKKKKEKKKKKEKEKKEKKKEKKKEKKEKKEKEKKKEKKKKEKKEKKEKEKKKEKKKKKEKEKK KEKE / 


MRESULT EXPENTRY MainWndProc (HWND hwnd, ULONG msg, MPARAM mpl, 
MPARAM mp2) 


BPECTI wel: 


HPS hps; 

HWND hwndActiveWin, 
hwndFrame; 

PID pid; 

Tip ehh ok; 


CHAR szText [20]; 


switch (msg) 
{ 
case WM_PAINT: 
hps = WinBeginPaint (hwnd, (HPS)NULL, (PRECTL) NULL) ; 
hwndActiveWin = WinQueryActiveWindow (HWND_DESKTOP) ; 
WinQueryWindowProcess (hwndActiveWin, &pid, &tid); 


sprint (ezText, “Process 1D = 0d", pid); 


WinQueryWindowRect (hwnd, &rcl); 


/* bsg Sct a ed es SS ea LSet) ee ee ee ae es JP a en ey Sa Se i et es Gye * / 
/* WinMapWindowPoints (hwnd, WinQueryWindow * if 
/* (hwnd, QW_PARENT), (PPOINTL) &rcl, 2); = 
/* es ae ne 5 Set tac a fe Yon a ne eee Sa fe et as! Aaa as ES Ma fc ee en Pl fe, Me os cee pen, eel ins * / 


WinDrawText (hps, strlen(szText), szText, &rcl, 
SYSCLR_WINDOWTEXT, SYSCLR_WINDOW, 
DT _LEFT | DT _EFRASERECT) ; 
WinEndPaint (hps) ; 


break; 


case WM_TIMER: 
hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 
WinSetWindowPos (hwndFrame, HWND_TOP, 0, 0, 0, O, 
SWP_ZORDER) ; 


Figure 2.4. General window control: C source file. Continues. 
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/* Cause PID to be displayed */ 
WinInvalidateRect (hwnd, NULL, TRUE) ; 
break; 


case WM_BUTTONI1DOWN: 
hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 
WinSetWindowText (hwndFrame, 
"WinGen - Size and Position Fixed") ; 

WinEnablewWindow (WinWindowFromID (hwndFrame, 
FID _ TITLEBAR), FALSE) ; 

WinEnableWindow (WinWindowFromID (hwndFrame, 
FID MINMAX), FALSE) ; 


WinSetWindowBits (hwndFrame, QWL_STYLE, 
(~FS SIZEBORDER | FS_DLGBORDER) , 
(FS_SIZEBORDER | FS_DLGBORDER) ) ; 


/* hs a pt pa a re a fee ele ee gs, EG eee Se te ag OE a ey et Se Sg ee ay ge * f 
/* WinSetWindowULong (hwndFrame, QWL STYLE, ay 
}® (WinQueryWindowULong “if 
ie (hwndFrame, QWL_STYLE) & */ 
f= ~FS_SIZEBORDER | a 
f* FS_DLGBORDER) ) ; ae 3 
/* a ae Nat I ek TS eg ee eh ei ce et engi tag ES * / 


WinInvalidateRect (hwndFrame, NULL, TRUE) ; 
break; 


case WM_BUTTON2DOWN: 
hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 
WinSetWindowText (hwndFrame, "WinGen") ; 
WinEnableWindow (WinWindowFromID (hwndFrame, 
FID TITLEBAR), TRUE) ; 
WinEnableWindow (WinWindowFromID (hwndFrame, 
FID MINMAX), TRUE) ; 


WinSetWindowBits(hwndFrame, QWL_ STYLE, 
(FS _STZEBORDER | ~FS_DLGBORDER) , 
(FS SIZEBORDER | FS _DLGBORDER) ) ; 


/* A ge ey re a gs em eg ee ee ce ee ye ee ee ea * / 
/* WinSetWindowULong (hwndFrame, QWL_STYLE, =f 
/* (WinQueryWindowULong aie i 


Figure 2.4. General window control: C source file. Continues. 
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he (hwndFrame, QWL_STYLE) & it j 
ee ~FS_DLGBORDER | * fp 
pe FS SIZEBORDER) ) ; at 2 
/* Sa gs ay ge NS te, a 2 et Sate a ay ag a ys se tf Sn ot ae a * / 


WinInvalidateRect (hwndFrame, NULL, TRUE); 


break; 


case WM_MINMAXFRAME: 
hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 
1£ (((PSWP) mp1) ->fl & SWP_MINIMIZE) 
{ 
DosBeep(100, 100); 
} 
else 
1f£ (((PSWP) mp1) ->fl & SWP_MAXIMIZE) 
{ 
DosBeep (1000, 100); 
} 
else 
1£ (((PSWP)mp1) ->fl & SWP_RESTORE) 
{ 
DosBeep (500, 100) ; 


WinSetWindowUShort (hwndFrame, QWS_XRESTORE, 100) ; 
WinSetWindowUShort (hwndFrame, QWS_YRESTORE, 100) ; 
WinSetWindowUShort (hwndFrame, QWS_CXRESTORE, 200) ; 
WinSetWindowUShort (hwndFrame, QWS_CYRESTORE, 200) ; 


break; 


case WM_SAVEAPPLICATION: 
WinStoreWindowPos("WinGen", "WinPos", 
WinQueryWindow (hwnd, QW_PARENT) ) ; 
return NULL} 


case WM_COMMAND: 
Switch (SHORTIFROMMP (mp1) ) 
{ 
case MI_MIN: 
hwndFrame = WinQueryWindow(hwnd, QW_PARENT) ; 
WinSetWindowPos(hwndFrame, 0, 0, 0, 0, 0, 


Figure 2.4. General window control: C source file. Continues. 
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SWP_MINIMIZE) ; 
break; 


case MI EXIT: 
WinPostMsg (hwnd, WM_QUIT, O, 0); 
break; 


} 


break; 


} 


return WinDefWindowProc (hwnd, msg, mpl, mp2) ; 


} 


MRESULT EXPENTRY NewFrame (HWND hwnd, ULONG msg, MPARAM mp1, 
MPARAM mp2 ) 


PTRACKINFO  ptrack; 


Switch (msg) 


{ 
case WM_QUERYTRACKINFO: 


/* Invoke the default frame window procedure first */ 
/* in order to update the tracking rectangle tothe */ 


/* new position. * f 


OldFrameProc (hwnd, msg, mol, mp2); 


ptrack = (PTRACKINFO) mp2; 
ptrack->ptlMinTrackSize.x = 25; 
ptrack->ptlMinTrackSize.y = 25; 


return ( (MRESULT) TRUE) ; 
} 


return OldFrameProc (hwnd, msg, mpl, mp2) ; 


[ERR KEKEEKEKKEKEKRKEKKEKKRKKEKRERKEKRKERKEKKRKKKEKEKRKKKKEKRKKEKRKKEREKE / 


MRESULT EXPENTRY TopWndProc (HWND hwnd, ULONG msg, MPARAM mp1, 
MPARAM mp2) 


REG ly te. 
HPS HDs : 


Figure 2.4. General window control: C source file. Continues. 
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CHAR szText [22]; 
HWND hwndTopFrame; 


Switch(msg) 
{ 
case WM_PAINT: 

hps = WinBeginPaint (hwnd, (HPS)NULL, (PRECTL) NULL) ; 

strcpy (szText, "I am owned by WinGen") ; 

WinQueryWindowRect (hwnd, &rcl); 

WinDrawText (hps, strlen(szText), szText, &rcl, 
SYSCLR_WINDOWTEXT, SYSCLR_WINDOW, 
DT_LEFT | DT_ERASERECT) ; 

WinEndPaint (hps) ; 


break; 


case WM_ERASEBACKGROUND: 
return (MRESULT) TRUE; 


case WM_CLOSE: | 
hwndTopFrame = WinQueryWindow (hwnd, QW_PARENT) ; 
WinDestroyWindow (hwndTopFrame) ; 
break; 


} 


return WinDefWindowProc (hwnd, msg, mol, mp2); 


Figure 2.4. General window control: C source file. Concluded. 


3 
A system modal application 


An increasingly common requirement is for an application to be the only one that a 
user can interact with. In other words, it is undesirable that the application users be 
permitted to switch to other parts of OS/2, for example the drives folder, or to any 
other application. 

One possible solution to this problem is to make your application system modal. 
You do this by calling WinSet SysModalWindow, specifying your frame window 
handle. This ensures that the user can only input, via the mouse or keyboard, into 
this window, or indeed any of its child windows or windows owned by it, and has 
the added advantage of preventing the window list from being displayed when 
Ctrl-Esc is pressed. Alt-Esc and Alt-Tab also have no effect. 

It is possible, and for this type of application probably essential, to prohibit clos- 
ing of the application, except for shutdown. A word of warning here: you must 
allow the user to shut the system down on completion since it is vital that the 
file system be closed properly. You can provide this facility by calling the Dos- 
Shutdown function. The sample program in this chapter does not do this because 
there is an Exit option on the menu bar. 

There may also be a further requirement to allow a user to switch to DOS at 
some point in the application processing. Now, this is where there is a difference 
between 16-bit and 32-bit OS/2. In the 16-bit version it was only possible to 
have one DOS full-screen session running, and it was always in the task list as 
DOS. By selecting it, OS/2 would either start DOS or just switch to it if already 
started. This obviously makes things easy for us, since to switch to DOS we 
need its switch handle, and since we know its title is DOS it is a simple matter of 
searching the task list for it, hence obtaining its window handle. Now, with the 
32-bit version everything has changed; the task list has become the window list 
and DOS sessions do not show until they are started. The window titles can be 
changed to anything the user wishes so we just do not know what to look for any- 
more. So, to overcome this we must use DosStartSession to start a full-screen 
DOS session and give it a unique program title. Once started, the user can switch 
back to Presentation Manager by pressing Ctrl-Esc or Alt-Esc. To allow the user to 
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return to the DOS session we can then search the window list for our unique pro- 
gram title, obtain its switch handle, and issue the WinSwitchToProgram call. 

Another possibility is to replace the workplace shell with your application by 
changing the statement: 


SET RUNWORKPLACE=C: \OS2\PMSHELL. EXE 
in your CONFIG.SYS to: 
SET RUNWORKPLACE=myappname 


Your program will then become the shell and you have complete control. As an 
experiment try the statement: 


SET RUNWORKPLACH=C: \OSz2 \CMD . EXE 


This will cause your system to start with just a windowed command prompt as the 
shell, and you will be able to start any Presentation Manager program or full- 
screen application from the command line. You can even restart the shell by 
typing START PMSHELL. 


3.1 Sample program (32-bit) 


Once you have started this program you will only have two options (Fig. 3.1): 





Figure 3.1. System modal output. 
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@ Jump to DOS 
@ Exit : 


Ctrl-Esc will not display the window list and so you will not be able to switch to 
any other program you may have running until you exit. 

We start by creating the window full-screen with a dialog border rather than a 
size border. We also use the FCF_NOBYTEALIGN flag to ensure that the window 
occupies the entire screen. Without this, the window will be aligned on eight-pel 
boundaries and so a gap will be evident on the desktop. To prevent the window 
from being moved, and hence exposing the desktop, we disable the title bar. We 
do this at window creation time along with the call to WinSetSysModalWin- 
dow. At this point, access to any other part of the system is denied; interaction 
can only take place within this window. 

When the DOS button is pushed we check if it is the first time the user has done 
so, and, if so, set up the STARTDATA structure and call DosStartSession to 
start a full-screen DOS session. After starting it we query the window list to 
obtain, and save, the window handle of the DOS session so that we can jump to 
it next time by calling WinSwitchToProgram. See also Sec. 13.3.4. 

Figure 3.2 lists the source for the 32-bit version. Note that the header file (Fig. 
3.3) and resource file (Fig. 3.4) are the same for both 16-bit and 32-bit versions. 


#define INCL_WINWINDOWMGR 
#define INCL_WINFRAMEMGR 
#define INCL_WINSWITCHLIST 
#define INCL_WINSYS 

#define INCL_WINBUTTONS 
#define INCL _DOSSESMGR 


#include <os2.h> 
#include <string.h> 
#include <stdlib.h> 
#include "sysmodal.h" 


MRESULT EXPENTRY MainWndProc (HWND, ULONG, MPARAM, MPARAM) ; 
HWND GetDOSHwnd (HWND) ; 


[RRKKKRERRRKER KEE RE RE RKEE KKEEKEEEEKERE RE RRRERREREREER KE RKEERERERKREE / 


INT main(void) 


{ 


HAB hab; 

HMQ hmq; 

HWND hwndFrame, 
hwndClient; 


Figure 3.2. A system modal application (32-bit): C source file. Continues. 
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QMSG agmsg; 

ULONG flFrameFlags; 

CHAR seTitle[so]; 

LONG 1ScrHeight, 
1ScrwWidth; 


[RREKRERKEKRERER EKEKERREKERE KE EREKEREEREREREREKEREKREREKEEEREEERRERE RE / 


hab = WinInitialize (0); 
hmq = WinCreateMsgQueue (hab, 0); 


WinRegisterClass(hab, "Sysmodal", MainWndProc, CS_SIZEREDRAW, 0); 


WinLoadString (hab, (HMODULE)NULL, ID_TITLE, sizeof(szTitle), 
szTitle) ; 


flFrameFlags = FCF_TITLEBAR | FCF_MENU | FCF_ACCELTABLE | 
FCF_NOBYTEALIGN | FCF_DLGBORDER ; 


hwndFrame = WinCreateStdwindow(HWND_DESKTOP, 0O, &flFrameFlags, 
"“Sysmodal", szTitle, 0, 
(HMODULE) NULL, ID_MAINWND, 
&hwndClient) ; 


1ScrWidth = WinQuerySysValue (HWND_DESKTOP, SV_CXSCREEN) ; 
1ScrHeight = WinQuerySysValue (HWND_DESKTOP, SV_CYSCREEN) ; 


/* Sc ey a a ge ey ees ae ce * / 
WinSetWindowPos(hwndFrame, 0, 0, O, /*Startup in foreground* / 
Lee Vietii; IBS HeLghe sy ~ Seas Sees se sees ssse= ey 


SWP_SIZE | SWP_MOVE | SWP_SHOW | SWP_ACTIVATE) ; 


WinCreateWindow (hwndClient, WC_BUTTON, "Jump to DOS", WS_VISIBLE, 
(lScrWidth/2 - 90), (lLScerHeight/2 =- 15), 180; 30, 
hwndClient, HWND_TOP, ID_DOS, 0O, 0); 


while (WinGetMsg(hab, &qmsg, (HWND)NULL, O, 0)) 
WinDispatchMsg(hab, &qmsqg) ; 


WinDestroyWindow(hwndFrame) ; 
WinDestroyMsgQueue (hmq) ; 


WinTerminate(hab); 
return OQ; 


J FESR A RW REL RR ee A eRe A Se ee ee ee ee ee oe a ee ae ee ee 


Figure 3.2. A system modal application (32-bit): C source file. Continues. 
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MRESULT EXPENTRY MainWndProc (HWND hwnd, ULONG msg, MPARAM mp1, 


HWND hwndFrame; 


MPARAM mp2 ) 


static HWND hwndSwitchDOS; 
static BOOL fSessionStarted = FALSE; 


STARTDATA StartDatea;: /* Start session data structure 

ULONG ulSessID; /* Session ID 

PID pid: /* Process ID 

CHAR szPgmTitle[40], /* Program title string 
szPgmName[100], /* Program to start in DOS 
szPgmiIp[10], /* Program parameters 
sz0b7)]Burt[100] ; /* Object buffer 


Switch (msg) 
{ 
case WM_CREATE: 


/* Make system modal and disable the title bar to prevent 
/* user from moving the window 


hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 

WinSetSysModalWindow (HWND_DESKTOP, hwndFrame) ; 

WinEnablewindow (WinWindowFromID(hwndFrame, 
FID TITLEBAR), FALSE) ; 


break; 


case WM_COMMAND: 


Switch (SHORTIFROMMP (mp1) ) 


{ 
case ID _DOS: 


L£ (!\ fSessionStarted) 


{ 


£fSessionStarted = TRUE; 
strcpy (szPgmTitle, "DOS Session"); 


StartData. 
StartData. 
StartData. 


StartData 


sit f 
ap 
ay 
* f 
ae 
my 
ao 


ae 3 
a 


/* Path to your DOS application */ 
strcpy (szPgmName, "D:\\DOSUTIL\\applname") ; 


/* Application parameters at 4 
strepy (szPomip, “applparm") ; 
Length = sizeof (STARTDATA) ; 
Related = SoF_RELATED_ INDEPENDENT ; 
seope | = SSF FGBG FORE ; 
.TraceOpt = S5P_ TRACEOPT NONE? 
PgmTitle = SzPomTitle;: 


StartData. 


Figure 3.2. A system modal application (32-bit): C source file. Continues. 
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Start Data. 
startData. 
stlartData. 
StarctbData. 
StartData. 
start Data. 
etartDate. 
Start Data. 
otartData. 
sLarctData. 
starcpata. 
SstartData. 
StarcData. 
Stele bale. 


PgomName 
Pominputs 
TermQ 
Environment 
InheritOpt 
SessionType 
IconFile 
PgmHandle 
PgmControl 
InitXPos 
InitvPos 
InLtxsize 
InitYSize 
Reserved 


szPgmName; 
szPomip; 
OF 

0; 


sof _INHERTOPT SHELL; 
oor  TYPR VOM: 
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StartData.ObjectBuffer = szObjBuf; 
StartData.ObjectBuffLen = 100; 


DosStartSession(&StartData, &ulSessID, &pid); 
hwndSwitchDOS = GetDOSHwnd (hwnd) ; 

} 

else 
WinSwitchToProgram(hwndSwitchDOSs) ; 

break; 


case MI_ EXIT: 
WinPostMsg (hwnd, WM_QUIT, O, 0); 
break; 


default: 
break; 


} 


break; 


case WM_ERASEBACKGROUND : 
return (MRESULT) TRUE; 

3 
recur 


} 


WinDefWindowProc(hwnd, msg, mpl, mp2) ; 


HWND GetDOSHwnd (HWND hwnd) 
{ 


HAB hab; 

SWENTRY sSwentry; 

SWCNTRL swentrl; 

USHORT usNumTasks, usBufSize, I; 


PSWBLOCK pswblk; 


Figure 3.2. A system modal application (32-bit): C source file. Continues. 
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HWND 
PVOL 


/* Get number of task entries sothat space can be allocated to store */ 
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hwndDOs; 
D BaseMem; 


/* the switch list block. 


hab = WinQueryAnchorBlock (hwnd) ; 

usNumTasks = WinQuerySwitchList (hab, NULL, 0); 
usBufSize = sizeof (SWBLOCK) * usNumTasks; 
DosAllocMem(&BaseMem, usBufSize, PAG _READ | PAG _WRITE 
PAG _ COMMIT) ; 

pswblk = BaseMem; 

WinQuerySwitchList (hab, pswblk, usBufSize); 


for (I =0; I < usNumTasks; I++) 


{ 


swentrl = * (PSWCNTRL) ( (char *)&(pswblk[I].-aswentry[0].swctl) - 


sizeof (ULONG) *1); 


L~L (!stremo (swentrl.szSwtitle, "DOS Session" ) } 


} 


swentry 


hwndDOS 


* (PSWENTRY) ( (char *)&(pswblk[I].aswentry[0] 
-hswitch) - sizeof (ULONG) *I) ; 
swentry.hswitch; 


DosFreeMem(BaseMem) ; 
return hwndDOS; 


Figure 3.2. A system modal application (32-bit): C source file. Concluded. 


#define 
#define 
#define 
#define 
#define 
#define 


ID_MATNWND 200 
ID_TITLE 4201. 
IDM_ONE 202 
MI_ EXIT 203 
MI_RESUME 204 
ID_DOS 205 


Figure 3.3. A system modal application (16/32-bit): header file. 
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#include <os2.h> 
#include "sysmodal.h" 


STRINGTABLE PRELOAD 
BEGIN 

ID _ TITLE, "You're Stuck with this Program! !" 
END 


ACCELTABLE ID_MATNWND 


BEGIN 
VEK_F3;, MiL_EXItT, VIRTUALKEY 
END 
MENU ID_MATNWND PRELOAD 
BEGIN 
SUBMENU "Evxit", IDM_ONE 
BEGIN 
MENUITEM "~Exit Program\tF3", MI _EAIT,; MIS_TEXT 
MENUITEM "~Resume Program", MI_RESUME, MIS_TEXT 
END 
END 


Figure 3.4 A system modal application (16/32-bit): resource file. 


3.2 Sample program (16-bit) 


The main difference between this version and the 32-bit version is that we do not 
need to use DosStartSession to start our DOS session. It is already present 
because we define it in the CONFIG.SYS by specifying PROTECTONLY=NO. All 
we need to do is scan the task list to obtain the window handle of the DOS session 
and use WinSwitchToProgram to switch to it. Figure 3.5 lists the 16-bit source 
file. 


#define INCL_WINWINDOWMGR 
#define INCL_WINFRAMEMGR 
#define INCL_WINSWITCHLIST 
#define INCL_WINSYS 

#define INCL_WINBUTTONS 


#include <os2.h> 
#include <string.h> 
#include <stdlib.h> 
#include "sysmodal.h" 


Figure 3.5. A system modal application (16-bit): C source file. Continues. 
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MRESULT EXPENTRY MainWndProc (HWND, USHORT, MPARAM, MPARAM) ; 
HWND GetDOSHwnd (HWND) ; 


[RRRRKEKKEKKKEKKKEKKEKRKEKEKREKRREKE KK KRKEKKEKEKEKEKEKEKKEKKKKKREKKEKEKKKKEKEKKEKKEKE / 


VOID cdecl main (void) 
{ 
HAB hab; 
HMOQ hmq; 
HWND hwndFrame, 
hwndClient; 


QMSG gmsg; 

ULONG flFrameFlags; 

CHAR szTitle[80]; 

LONG 1ScrHeight, 
1Scrwidth; 


[RKRKKRKKEKKKKKEKRKEKKEKKKERKEKKKERKEKKKKKKEKEKKEKKEKRKKEKKKEKKKKKEKKKKEKKKKEKK EK / 


hab = WinInitialize(0); 
hmq = WinCreateMsgQueue (hab, 0) ; 


WinRegisterClass(hab, "Sysmodal", MainWndProc, CS_SIZEREDRAW, 0); 
WinLoadString (hab, NULL, ID_TITLE, sizeof(szTitle), szTitle); 


flrrameFlags = FCF_TITLEBAR | FCF_MENU | FCF_ACCELTABLE | 
FCF_NOBYTEALIGN | FCF_DLGBORDER ; 


hwndFrame = WinCreateStdwWwindow(HWND_DESKTOP, OL, &flFrameFlags, 
"Syemodal", (PSZ)szTitle, OL, 
NULL, ID_MAINWND, &hwndClient) ; 


1Scrwidth - WinQuerySysValue (HWND_DESKTOP, SV_CXSCREEN) ; 
1ScrHeight = WinQuerySysValue (HWND_DESKTOP, SV_CYSCREEN) ; 


/* Be Si a i a gd Ly * / 
WinSetWindowPos(hwndFrame, NULL, 0, 0, /* Startup in foreground */ 
(SHORT) 1ScrWidth, /* --------------------- * / 


(SHORT) 1ScrHeight, 
SWP_SIZE | SWP_MOVE | SWP_SHOW | SWP_ACTIVATE) ; 


WinCreateWindow(hwndClient, WC_BUTTON, "Jump to DOS", WS_VISIBLE, 
(SHORT) (lLSerWidth/2 - 90), 
(SHORT) (1lScrHeight/2 - 15), 
180, 30, HwndCclient, HWND_TOP, ID_DOS, 0, 0); 


while (WinGetMsg(hab, &gqmsg, NULL, 0, 0)) 
WinDispatchMsg (hab, &qmsq) ; 


Figure 3.5. A system modal application (16-bit): C source file. Continues. 
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WinDestroyWindow(hwndFrame) ; 
WinDestroyMsgQueue (hmq) ; 
WinTerminate(hab); 


} 


fp RRRRARE SERRA REKEARERSERRH SD RARRREKAEERALAREEKARERERAKRERE KEKAEAKKERERE ] 


MRESULT EXPENTRY MainWndProc (HWND hwnd, USHORT msg, MPARAM mp1, 
MPARAM mp2) 


HWND hwndFrame; 
Static HWND hwndSwitchDOS; 
Switch (msg) 
{ 
case WM_CREATE: 


/* ea bs ee ee es Ee ee es ee a ee ee ee ee ee * / 
/* Make system modal and disable the title bartoprevent */ 
/* user from moving the window ae 
/* pS Sy Sy eg an a Eg a ae ge a Sig ae en rN a em en an a ls EN a pa * 


hwndFrame = WinQueryWindow (hwnd, QW_PARENT, FALSE) ; 
WinSetSysModalWindow (HWND_DESKTOP, hwndFrame) ; 
WinEnablewindow (WinWindowFromID(hwndFrame, 

FID TITLEBAR), FALSE) ; 
hwndSwitchDOS = GetDOSHwnd (hwnd) ; 


break; 


case WM_COMMAND: 
Switch (SHORT1FROMMP (mp1) ) 
{ 
ease 1D DOS: 
WinSwitchToProgram(hwndSwitchDOSs) ; 
break; 
case MI_EXIT: 
WinPostMsg (hwnd, WM_QUIT, OL, OL); 
default: 
break; 
} 


break; 


case WM_ERASEBACKGROUND: 
return (MRESULT) TRUE; 


} 


return WinDefWindowProc (hwnd, msg, mpl, mp2); 
} 


Gf PDE TE TE SI RE SARE Te ETE SEY AS IS A Sa OR IR SS De a ae Be Ae a ae ae eae 


Figure 3.5. A system modal application (16-bit): C source file. Continues. 
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HWND GetDOSHwnd (HWND hwnd) 
{ 
HAB hab; 
SWENTRY swentry; 
SWCNTRL swentrl; 
USHORT usNumTasks, 


usBufSize, 

ae 
PSWBLOCK pswhblk; 
HWND hwndDOS; 


/* Get number of task entries so that space can be allocated to 
/* store the switch list block 


hab = WinQueryAnchorBlock (hwnd) ; 

usNumTasks = WinQuerySwitchList (hab, NULL, 0); 
uSBufSize =sizeof(SWBLOCK) * usNumTasks; 
pswblk =malloc(usBufSize) ; 
WinQuerySwitchList (hab, pswblk, usBufSize); 


for (I =0; I < usNumTasks; I++) 
{ 
Swentrl = * (PSWCNTRL) ( (char *)&(pswblk[I].aswentry[0].swct1l) 
= s1760f (USHORT) *1) ; 


Lf (listremp(swentrl.ezsSweitle, "DOS") ) 


swentry 


* (PSWENTRY) ( (char *)&(pswblk[I] .aswentry[0] 
-hswitch) - sizeof (USHORT) *I) ; 
hwndDOS = swentry.hswitch; 


} 


free (pswblk) ; 
return hwndDOS; 


Figure 3.5. A system modal application (16-bit): C source file. Concluded. 


4 
Presentation parameters 


To change the colour or font of a dialog control or window, you can either do it at 
runtime using WinSet PresParam or, for a dialog control, preset it in your dialog 
template using the PRESPARAMS statement. 

One of the most common problems in using WinSet PresParam occurs when 
changing the font. The size parameter, Att rValueLen, must include the null ter- 
minator for the font string; the best way to do this is to use sizeof rather than 
strlen. You can, of course, use the latter but make sure you add 1 to it for 
the terminator. 


4.1 Changing colour 


The following sample code changes the foreground and background colours of a 
multiline entry field in a dialog box using WinSet PresParam: 


LONG liColour: 


Colour = CLR. RED? 

WinSetPresParam (WinWindowFromiID(hwndDlg, ID _MULTILINE) , 
PP _BACKGROUNDCOLORINDEX, 
sizeort(lColour), &lColour) >; 

l€olour = CLR. YELLOW: 

WinSetPresParam (WinWindowFromID(hwndDlg, ID _MULTILINE) , 
PP _FOREGROUNDCOLORINDEX, 
sizeot (lColour), &lcolour): 


If you are using OS/2 V1.x then the PRESPARAMS statement can be added 
manually to the dialog template to add colour for a control: 


PUSHBUTTON Clear MLE"; TD CLEAR, 85, 5, 70, 13 
PRESPARAMS PP_BACKGROUNDCOLORINDEX, CLR_RED 


D7 
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PRESPARAMS PP_FOREGROUNDCOLORINDEX, 
CLR_YELLOW 


The dialog box editor for this version does not support presentation parameters. 
However, with the introduction of OS/2 version 2.0, the dialog box editor does 
support presentation parameters, so if you had previously added them manu- 
ally, as shown, then you must remove them, otherwise when you set them using 
the editor the new values will be appended after your colour settings and so will 
be ignored. In addition, the editor uses RGB values rather than index values 
and so will add statements of the form: 


PRESPARAMS PP_FOREGROUNDCOLOR, OxOOQQQOOFFL 
PRESPARAMS PP_BACKGROUNDCOLOR, OxOQOQOQOFFOOL vi 


which represents a blue foreground on a green background. 
Obviously, if you are still using OS/2 V1.x then you must add these statements 
manually. 


4.2 Changing font 


As in Sec. 4.1, we use both methods to change the font for a dialog control. First, 
using WinSet PresParam: 


CHAR seztont [lil]: 


/* at sa tas ect eee Se eS ms es ee Se ee ee ee Se ee ee ee ee ee a J 
/* The length parameter must include the NULL terminator, */ 
/* so use SIZEOF and not STRLEN ar 
j* Seapets ttn ewan SN ey ae a ne Rk A ee ty ace pe ad cease ens ena a cg Secreta cies * / 


Sstrepy (sziont, "LO. Courier"); 
WinSetPresParam (WinWindowFromID(hwndDlg, ID CLEAR), 
PP_FONTNAMESIZE, sizeof (szfont), szfont); 


or using the PRESPARAMS statement, as before: 


PUSHBUTTON iClear MLB", TD CuRAR, 65, 5, 70, 13 
PRESPARAMS PP_FONTNAMESIZE, "10.Tms Rmn" 


As stated in Sec. 4.1, the dialog box editor for OS/2 version 2.0 supports presen- 
tation parameters. This includes the setting of fonts as well as colour. Again, if you 
had inserted a PRESPARAMS statement manually in the dialog box template for a 
different font, as shown above, and then subsequently edited it with the dialog box 
editor, the 10.Tms Rmn would be replaced by its numeric equivalent, that is: 


PRESPARAMS PP_FONTNAMESIZE, "10.Tms Rmn" 
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would become 


PRESPARAMS PP_FONTNAMESIZE, 0x542E3031L, 0x5220736DL, 
OxOQ0006E6DL 


Although this is a very simple way of changing the font, care must be exercised 
when using this method for multiline entry fields, as some fonts cannot be set this 
way. Similarly, if you are using an ownerdraw listbox care should be taken where 
you place the WinSet PresParam call. See Sec. 5.14.12 for details. 


Note: You can now use this method to change the font style, for example, 
italic or bold. The following will set the font to 12 point Times New Roman 
Bold Italic: 


CHAR szront [40]; 


strcepy (szFont, "12.Times New Roman Bold Italic"); 
WinSetPresParam(hwnd, PP FONTNAMESIZE, sizeof(szFont), 
SezFont) ; 


4.3 Applying presentation parameters to a frame window 


If you specify a frame window handle when using WinSet PresParanm then it will 
affect all the controls within that frame, since presentation parameters are passed 
on to any owned windows. However, you may still find that the font for any multi- 
line entry fields may not be changed. 


4.4 Sample Program 


See the sample program in Fig. 5.10 for uses of WinSetPresParam. 


D 
Dialog boxes and their controls 


This area causes many problems, notably when minimizing a dialog box and 
ownerdraw listboxes. However, there are also many common problems associated 
with the controls, and we also look at these here. Some of the problems en- 
countered relate to setting the focus on a particular control, how to set up a 
user button, the use of entry fields, including multiline, pop-up menus and menu 
bars, and how to change the style of a particular control. Because there have 
been many problems attributed to dialog boxes three sample programs have 
been included to illustrate the solutions. The first looks at general dialog box 
issues like minimizing and menus, plus various problems associated with entry 
fields, user buttons, styles and focus. The second concentrates on MLEs and radio 
buttons, and the final program deals solely with listboxes and mnemonics. 
To start with, let us look at dialog boxes in general. 


5.1 Dialog box as a main window 


It is sometimes very convenient to use the dialog box editor to create a window and 
then to use this window as your main, or only, window. The easiest way to do this 
is to create a modal dialog box in your main routine: 


INT main(VOID) 

{ 
HAB hab; 
HMO hmq; 
hab = WinInitialize(0O); 
hmg = WinCreateMsgQueue (hab, 0); 
WinD1gBox (HWND_DESKTOP, HWND_DESKTOP, DlgProc, 

(HMODULE) NULL, DLG_BOX, 0); 

WinDestroyMsgQueue (hmq) ; 
WinTerminate (hab) ; 
return 0; 
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You will not need a message loop as this is part of the WinD1gBox call. When this 
call returns it means your dialog box no longer exists and you can terminate your 
application. 

Instead of using WinDlgBox you can use the following sequence, which is 
identical: 


hDlg = WinLoadDlg (HWND_DESKTOP, HWND_DESKTOP, DlgProc, 
(HMODULE) NULL, DLG_BOX, 0); 

WinProcessDlg(hDlg) ; 

WinDestroyWindow(hD1g) ; 


5.2 Minimizing a dialog box 


Dialog boxes were never intended to be minimized and so the most common 
problem encountered when minimizing them is the non-appearance of its icon. 
Instead, Presentation Manager paints the icon with the bottom-left corner of the 
dialog box. So, to minimize your dialog box and ensure the icon is displayed cor- 
rectly, load the icon using WinLoadPointer and then send a WM_SETICON mes- 
sage to the dialog box. You should do this in your WM_INITDLG code. You must 
then trap the WM_ADJUSTWINDOWPOS message and, if minimizing, hide the con- 
trol(s) at the bottom-left corner of the box. Conversely, when restoring, you must 
show the control(s) again. Finally, pass control back to the default dialog pro- 
cedure so that it can do any default processing. In the following code there is a 
pushbutton, with an ID of ID_OK, that must be hidden/reshown: 


static HWND hD1lgBoxIcon; 


case WM_INITDLG: 
hD1lgBoxIcon = WinLoadPointer (HWND_DESKTOP, (HMODULE) NULL, 
LD TCON}) + 
WinSendMsg (hwndDlg, WM_SETICON, (MPARAM)hDlgBoxIcon, 0); 


return (MRESULT) TRUE; /* Needed if we have changed focus */ 


case WM_ADJUSTWINDOWPOS : 
1f£ (((PSWP) mp1) ->fl & SWP_MINIMIZE) /* Being minimized */ 
{ 
WinShowWindow (WinWindowFromID(hwndDlg, ID_OK), FALSE) ; 
} 
else 
1f£ (((PSWP) mp1) ->fl & SWP_RESTORE) /* Being restored */ 
{ 
WinShowwWindow (WinWindowFromID(hwndDlg, ID_OK), TRUE); 
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} 


return WinDefDlgProc (hwndDlg, msg, mpl, mp2) ; 


case LD_ EXIT: 
WinDestroyPointer (hDlgBoxIcon) ; 


break; 


You should also add a WinDestroyPointer call during your exit processing. 


5.3 Starting minimized 


To create a dialog in its minimized state use SWP_MINIMIZE in a call to 
WinSetWindowPos: 


LONG I1xX Left, 
lY_ Bot, 
l1ScreenHeight, 
1ScreenWidth; 
RECT 2ClL? 


case WM_INITDLG: 


/* Sigh Sa ey Ca cp Ss oa al een ae ea ge pH ee HST et pe ei pe ee * / 
/* This code will ensure that your dialog ae 
/* box 1s centred on the desktop when sl 
/* restored from its minimized state. = 
/* Sg peg Rey Ph ay Ne ag a pe a py gs a as es * / 


1ScreenWidth = WinQuerySysValue (HWND_DESKTOP, 
ov CXSCREEN) ; 
1ScreenHeight = WinQuerySysValue (HWND_DESKTOP, 
SV CYSCREEMN) ¢ 


WinQueryWindowRect (hwndDlg, &rcl); 
1X_Left = (1lScreenWidth -rcl.xRight) / 2; 
1Y_ Bot = (1ScreenHeight - rcl.yTop) jf 23 


WinSetWindowPos (hwndDlg, HWND_TOP, 1X _ Left, LY Bot, 0, 0, 
SWP_MOVE | SWP_SHOW | SWP_ACTIVATE | SWP_MINIMIZE) ; 


break; 


Dialog boxes and their controls 63 


5.4 Positioning a dialog box on the desktop 


To position a dialog box on the desktop call WinSetWindowPos without the 
SWP_SIZE option in your WM_INITDLG case statement. Section 5.3 is really a 
special case of this; just omit the SWP_MINIMIZE option to give the desired result. 


5.5 Mnemonics for controls 


If you want to use mnemonics in a dialog box then define a static text field with the 
DT_MNEMONIC style, either manually or by using the dialog box editor, and place 
this immediately before the control you want the mnemonic to act upon. This 
creates a mnemonic based on the position of the static text control in the 
resource, and underlines the letter with the tilde. 

In the following example, when the user presses Alt-S from anywhere in the 
dialog, or S if the focus is not on an entry field or another listbox , it will auto- 
matically set the focus to the listbox control: 


CTEXT "~wSingle Selection", 101, 8, 155, 80, 8, 
DT MNEMONIC 
LISTBOX ID _LISTBOX, 8, 71, 80, 80 


5.6 Modeless dialog box 


Sometimes you may need to allow users to access your application’s main client 
window while a dialog box is displayed. To do this you must make the dialog 
box modeless. This is done by calling WinLoadD1g to load the dialog box and 
WinShowWindow to make it visible: 


hDlg = WinLoadDlg (HWND_DESKTOP, HWND_DESKTOP, DlgProc, 
(HMODULE) NULL, DLG_ BOX, 0); 


WinShowWindow(hDlg, TRUE) ; 


Briefly, the difference between a modal and a modeless dialog box is that with a 
modal dialog you cannot interact with the main client window until you have dis- 
missed it, whereas with a modeless dialog you can. For example, you would use a 
modal dialog if you needed information before you could continue processing the 
application, and a modeless dialog if you wanted to keep information in view at all 
times. 

The important point to note here is that when you dismiss the dialog it is only 
hidden, not destroyed like a modal dialog box, and so the data is still accessible 
using WinQueryWindowText, etc. You can also use window words (see Chap- 
ter 9), to pass the data back to the main window procedure. To remove the dialog 
box you must use WinDestroyWindow: 
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WinDestroyWindow(hD1lg) ; 


For an example of a modeless dialog see Sec. 9.4, where you will find the source 
listing in Fig. 9.3. 


5.7 Adding a status bar 


If you have used the enhanced Presentation Manager editor, supplied with the 32- 
bit version of OS/2, you will have noticed that it has a status bar. This bar gives you 
the current application status, for example whether you are in Insert or 
Replace mode. This feature can also be added to dialog boxes very simply. All 
you have to do is define a static text field in the dialog box, using the dialog box 
editor: 


Gl ET wr, LO STATUS, 0, 0, 195, 8 


The above defines a static text field, with centred text, at the dialog box’s origin 
(0, 0) with a length of 195 dialog units and a height of 8 units. 

You then use WinSet Pres Param in the WM_INITDLG case statement to initi- 
alize the colours (alternatively, you can set the presentation parameters using the 
dialog box editor if you are using OS/2 V2.0): 


LONG 1Colour; 


case WM_INITDLG: 
lColour = CLR _DARKGREEN; 
WinSetPresParam(WinWindowFromID(hwndDlg, ID STATUS), 
PP_BACKGROUNDCOLORINDEX, 
ei zeor (lColour), &€iColour) 


Iicolour = CLR _ YELLOW: 

WinSetPresParam(WinWindowFromID(hwndDlg, ID_STATUS), 
PP_FOREGROUNDCOLORINDEX, 
sizeot(ilColour), &1Ccolour) ; 


break; 


You will then need to call WinSetWindowText to display, or change, the 
status as and when necessary: 


strcpy(szStatus, "New Status"); 
WinSetWindowText (WinWindowFromID(hwndDlg, ID_STATUS), 
sz5tatus) > 
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5.8 Disabling controls 


To disable a control, call WinEnableWindow with the second parameter, 
NewEnabled, set to FALSE, and to enable it again set the parameter to TRUE. 
To obtain the window handle of the control use WinWindowFromID. The follow- 
ing code shows how to disable, and enable, a control in a dialog box with an 
ID of ID_DELETE: 


/* BAe pans ghae Spey tye cet, emacs pest * / 
/* To disable. * / 
/* 6g a Ng Mey Nea penah Be Gonet poe ee eee wf 


WinEnablewindow (WinWindowFrom1iID(hwndDlg, ID_DELETE), 


FALSE) ; 
/* EY a ara pe et Sea ee Se xf 
/* Toenable.. <7 
/* By ee yes, ae he ey eee * / 


WinEnablewindow (WinWindowFrom1iID(hwndDlg, ID_DELETE), 
TRUE) > 


This is a useful technique to use when you do not want a user activating a control 
until any prerequisites have been completed. For example, if you have a delete 
pushbutton in your dialog you do not want it pressed until the user has selected 
an item to delete. Using this technique can reduce the size, and complexity, of 
your program, since the amount of validation code will be greatly reduced. 


5.8.1 Entry fields 


If you need to disable an entry field which is the first control in a dialog box then 
use WinEnabl eWindow as usual in your WM_INITDLG case statement, but alter 
the focus to another control. Failure to do this if you are coding for version 1.x will 
allow users to enter data into the field until they tab out to another control. It will 
only be then that the entry field will become disabled. However, under version 2.0 
the field will be disabled, but unless you alter the focus, the cursor will still be posi- 
tioned on it. 

It is also important when changing focus during a WM_INITDLG message to 
return TRUE, otherwise it will not be changed, see also Sec. 5.12. 


5.9 Window ID of a control 


To retrieve the window identity of a control within a dialog box or client window 
use WinQueryWindowUShort with a value of QWS_ID: 
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/* a hae sh Fa a Hee hat Rls ae ng ree ee eg pa a8 EP ae ah eh gle ae ae eR par fay eae eee lg OO vy 
/* To ind the ID of the control ID ENTRY * f 
j* ease ag, sep eh Fa, fen ES ha ha a) Fa ig ER eS ae a eal Ay es Se etek Me eed * / 


sId = WinQueryWindowUShort (WinWindowFromID(hwndDlg, 
ID_ENTRY) , QWS_ID) : 


Now that we have looked at dialog boxes in general, let us take a look at the 
individual controls which have given rise to numerous questions. 


5.10 Buttons 


5.10.1 Default pushbutton 


To determine which pushbutton is the default use WinOQueryWindowULong with 
a value of QWL_STYLE. If the returned style has the BS_ DEFAULT bit set then it is 
the default button: 


ULONG ulStyle; 


ulStyle = WinQueryWindowULong (WinWindowFromID(hwndDlg, 
ID OK), OWL STYLE) : 


if (ulStyle & BS_DEFAULT) 


‘ 

i SR ak a wat Neer et a, ee i pl ee ne, x / 
/* Button is the default */ 
| ie i a Ea fe ree ny he em he Ee A So, ee Sg * / 


To remove the default style send the button a BM_SETDEFAULT message with 
mp1 set to FALSE. To make it the default again send the same message with 
mol set to TRUE: 


/* hh i Pea pe PE ee ae ee Ae ek ae ik a Se pe Fiche ak ae "yf 
/* Remove default style */ 
/* at a a as Fe Eh sh pe nN a A a a an Met eat de il ar * / 


WinSendMsg (WinWindowFromID(hwndDlg, ID_OK), BM_SETDEFAULT, 
(MPARAM) FALSE, 0); 


/* a ee ee ne es Fe a en ant * / 
/* Set default style */ 
/* Fae any Sen Ee ee eT eo ee ee TEs Tee Bey ae ee x 


WinSendMsg (WinWindowFromID(hwndDlg, ID_OK), BM_SETDEFAULT, 
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(MPARAM) TRUE, Q) ; 


Alternatively, to set/remove the default state you can use WinSetWindow- 
Bits, but you must call WinInvalidateRect to force a repaint of the button 
afterwards to ensure the default border is added/removed as appropriate: 


/* eae ert ar a et es) ea A ge, Se (dene a * 
/* Remove default style */ 
j* ig a te Pay ee ts ee acer eS ot Se eS * / 


WinSetWindowBits (WinWindowFromiID(hwndDlg, ID_OK), 
OWL STYLE, 0, BS._DEFAULT) ; 
WiniInvalidateRect (WinWindowFromID(hwndDlg, ID_OK), NULL, 


FALSE) ; 
{* Sp aa ao SS 8 peg sg et *x / 
/* Set default style */ 
/* Bop Shc a As gece eee ea gg es * / 


WinSetWindowBits (WinWindowFromiID(hwndDlg, ID_OK), 
OWL STYLE, BS DEFAULT, BS _DEFAULT') ; 
WininvalidateRect (WinWindowFromID(hwndDlg, ID_OK), NULL, 
FALSE) ; 


Note: From OS/2 version 1.3 onwards, setting another pushbutton to be the default 
will cause the current default button to lose its default state. 


5.10.2. User pushbutton 


If you need to display a bitmap in a pushbutton, for example the system bitmap for 
a drive, then you must use a pushbutton with the style BS_USERBUTTON. Using 
this causes a WM_CONTROL message, with a notification code of BN_PAINT, to 
be sent to your dialog procedure whenever the button needs to be painted. The 
second parameter of this message contains a pointer to a USERBUTTON struc- 
ture, as follows: 


typedef struct _USERBUTTON 
{ 


HWND hwnd; /* Window handle ar J 
HPS hps; /* Presentation space handle */ 
ULONG fsState; /* New state of user button eo 


ULONG fsStatedld; /* Old state of user button = 
} USERBUTTON; 


Note that this is yet another structure which has changed for version 2.0; the two 
state variables have changed from USHORT to ULONG, but at the time of writing 
their names remain unchanged. 
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To handle a user button, all we need do is supply a button paint procedure, and 
in the dialog box procedure process the WM_CONTROL message. The actual button 
ID will be passed in the low SHORT of the message’s first parameter, mp1, so we 
can check this if we have more than one button. In the following code we only have 
one user button and so there is really no need for this check. However, the first 
thing we need to do when we receive this message is to pass the pointer, mp2, to 
our button procedure. Remember that mp2 contains a pointer to the USER- 
BUTTON structure. 


/* es es aye ee a ee ss A oe, a ee a * / 
/* Define the button paint procedure = 
js Nye ate hea pests op ys ee i ey tie a a ee st * / 


{fs hy pecs ad ec ate ned temas Rd are Eh Nes, Sah eh pel rh I Sa Ee an gS oe a ag hh haar ed et a fae eg ad Ae at ch ag Le cee */ 
/* In the dialog box procedure handle the WM_CONTROL * 
/* message... x / 
/* Sapa a a a a an a a a ep pe i ey ena agg te ee 8 ee oe ge eee * 


case WM_CONTROL: 
switch (SHORT2FROMMP (mp1) ) 
{ /* Check notification code */ 
case BN_PAINT: 
Switch (SHORTIFROMMP (mp1) ) 
{ f* Check button control TD */ 
case ID USERBUTTON : 
Button_Paint (mp2) ; 
return (MRESULT) TRUE; 


default: 
break; 
} 
} 
break; 
i td ban i Praeea a Beh en aL totes ste Jia sh oth oss BR ta ge ep tM pe * / 
/* Handlethe button push */ 
/* ne a ana eae as pe Pe , eh ea ah iene Boe ee * / 


case WM_COMMAND: 
Switch (SHORTILFROMMP (mp1) ) 
{ 
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case ID_USERBUTTON: 
DosBeep (500, 100) ; 
return FALSE; 


} 
return FALSE; 


All the paint procedure does is to load the bitmap and draw it. In the button’s 
normal state, the value of fsState is zero and so we use the DBM_NORMAL flag. 
When the button is pressed, fsSt ate is non-zero so we invert the image by using 
DBM_INVERT. The commented section loads the Drives system bitmap: 


VOLD Button_Paint (USERBUTTON *ubtn) 
{ 

RECTL DEST PLS 

HBITMAP hbm; 


/* Se ee a a i a aS ea ad er ed I i ee Oe a ae ny pe ees es OT ey * / 
/* hbm = WinGetSysBitmap (HWND_DESKTOP, SBMP DRIVE); * / 
/* WinQueryWindowRect (ubtn->hwnd, &DestPt); * / 
/* WinDrawBitmap(ubtn->hps, hbm, NULL, (PPOINTL) * / 
‘ie &DestPt, CLR_YELLOW, CLR_BLACK, ad | 
y* ((USHORT) ubtn->fsState ? DBM INVERT: */ 
i * DBM NORMAL) | DBM_STRETCH) ; * 
fm eS a NS ah a Ne Sn a hn Ne Ss a ee nin aw ad fe awed * / 


hbm = GpiLoadBitmap (ubtn->hps, (HMODULE)NULL, 
TD. T0CK « Uh, Uns 
WinQueryWindowRect (ubtn->hwnd, &DestPt) ; 
WinDrawBitmap (ubtn->shps, hbm, NULL, (PPOINTL) &DestPt, 
0, 0, ((USHORT) ubtn->fsState ? DBM _ INVERT: 
DBM NORMAL) | DBM STRETCH) ; 
return; 


} 


This paint procedure makes use of the DBM_STRETCH flag so that the bitmap is 
stretched to the full size of the button. If you wish to display a non-system bitmap 
in a pushbutton then you must define it in your resource file and load it in your 
paint procedure prior to display: 


BITMAP ID LOCK lock.bmp 


You could modify the button paint procedure easily to look at all the system 
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bitmaps by adding the following code: 


static USHORT usBitmap = 1; 


hbm = WinGetSysBitmap (HWND_DESKTOP, usBitmap++) ; 
if (usBitmap == 49) /* Currently only 48 bitmaps */ 
usBitmap = 1; 


WinQueryWindowRect (ubtn->hwnd, &DestPt); 
WinDrawBitmap(ubtn->hps, hbm, NULL, (PPOINTL) &DestPt, 
CLR_YELLOW, CLR_BLACK, 
( (USHORT) ubtn->fsState ? DBM_INVERT : 
DBM NORMAL) | DBM STRETCH) ; 


Note the cast to USHORT for ubtn->fsState. In OS/2 V1.x this field, and 
£sStateOld were USHORTs but were redefined to ULONG for version 2.0 in readi- 
ness for the conversion of the Presentation Manager code to 32-bit. However, since 
this was not implemented in V2.0 we must still use USHORT, otherwise the image 
will never be redrawn in its normal colours once the button has been pressed. 


5.10.3 Initializing radio buttons 


This is probably the most common problem for radio buttons. If you have a group 
of radio buttons and you want to check one other than the first when starting your 
dialog, then the following will usually work: 


case WM_INITDLG: 
WinSendDigitemMsg (hwnd, BUTTON_ID, BM_SETCHECK, 
MPFROM2ZSHORT (TRUE, 0), OJ: 


However, if the group of buttons is the first control in the dialog box then the first 
button will be checked, irrespective of whatever button ID you specified on the 
WinSendDlgItemMsg. To overcome this, check the required button as shown, 
but make sure you return TRUE from the WM_INITDLG as you would when set- 
ting the focus. 


5.11 Entry fields 


5.11.1 Changing the default length 


To change the default length of 32 for a text entry field send it an 
EM SETTEXTLIMIT message. You would normally put this in the 


Dialog boxes and their controls 71 


WM_INITDLG case statement: 


| 8 ar Ne to aes fe py Paes pack gp ee ech ee gl Nag Ng ee oh eae nay yy aa SI ig Paes ey orecey  ae eeae an e * / 
/* This code sets the password length to 8 bytes oS 
/* be a peed yh ns Gl SS Sg ag ee tg Mee) ay hn a ee ns EY, hese ey wear aS, Se he ee eh * / 


WinSendMsg (WinWindowFromID (hwndDlg, ID_PASSWORD) , 
EM SETTEXTLIMIT, MRFROMSHORT (8), QO); 


Alternatively, you can modify your dialog box template, the DLG file, by adding 
control data to the control(s) on which you want the length set. The following 
example shows how to set the length of an entry field to five bytes: 


ENTRYP LE LD eu” LD_ENTRY,; G7; B7%y 36% 8, 
NOT ES_AUTOSCROLL | ES_MARGIN 
CTLDATA 6, 3; Uy U 


The format of CTLDATA for an entry field is: 


CTLDATA size, length, minsel, maxsel 


where: 
size = 8 for 8 bytes of control data 
length = number of characters allowed to be entered 
minsel = 0 (minsel defines the first character to be initially selected) 
maxsel = 0 (maxsel defines the last character to be initially selected) 


Note: If you use this latter approach, beware if you use the dialog box editor 
as you may lose any changes you have made manually to the DLG file. 


5.11.2 Cursor not appearing at edge of field 


This problem has caused some programmers to spend many hours searching for a 
cure. Its effect is that the system pointer does not change into the I-beam cursor 
when it moves into an entry field, but as it is moved to the right it does change. 

The cause of this is a static field being defined immediately to the left of the entry 
field and overlapping it. Hence, when the user moves the pointer into the left side of 
the entry field, it is effectively pointing to the static text rather than the entry field, 
and so the pointer does not change until it reaches the end of the static field. Fix 
this by realigning the fields in the dialog box. 


5.11.3 Cursor position 


To position the cursor in an entry field send it an EM_SETSEL message. The first 
parameter of this message, MPFROM2SHORT(m, n), specifies where the cursor 1s 
to be positioned and what part of the field needs to be selected, if any. 
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m specifies the zero-based offset of the first character in the selection 
n specifies the zero-based offset of the first character after the selection 


If m = n, there is no selection but the cursor is positioned at offset m. If m = 0 and 
n > text limit, the entire text is selected. For example: 


/* ayes eas, Ss Ss ets ee ee Se dh eh ee et * / 
/* Position cursor between lst and 2nd characters ofa na 
/* 5-byle entry field = ID_ENTRY wy 
rats as aa aah eg ad eS SE as a ree a a eh he, Soret ay ss ee eS Soe ee xf 


WinSendMsg (WinWindowFromID(hwndDlg, ID_ENTRY), EM _SETSEL, 
MPFROM2SHORT (1, 1), 0); 


/* eas Yate eels (ote ee ey fas Ee a Hs te ed Sh ee a aera em ee ees ee re i nee ee Ee ee * / 
/* Position cursor between 1st and 2nd characters but mark */ 
/* 2nd and 3rd characters only as 
/* pa ae a fc ml ay al ted uh plat ns pes Sm em ey Geet: Sag kage ga eee rcp na sr ie. cing Ns es ea fed 9 aes be fi fae ie pe et od * / 


WinSendMsg (WinWindowFromID(hwndDlg, ID_ENTRY), EM_SETSEL, 
MPFROM2SHORT (1, 3), 0); 


/* ert a ae a Se ny a, ip oe yey sy ey eng ey Oey ty ae fees ea emt pty aes Phe Ay oe neh heen es Fac g te nec, Peas nes cet egg ee * 
/* Position cursor at start of field but mark entire field lt | 
/* AE hoi NEN Nh hn cS ee ea ey ee a ee ms ge atc dy nei ye ei peeing tpn stage Seales te Shean ae me sees Sy a gg a * 


WinSendMsg (WinWindowFromID(hwndDlg, ID_ENTRY), EM _SETSEL, 
MPFROM2SHORT(0, 5), 0); 


5.11.4 Reading data 


To read data from an entry field use WinQueryWindowText or WinQuery 
DligItemText for character data, or WinQueryDlgItemShort to convert the 
text to an integer value: 


iP Sec a ab a pt pe eas ee ee pe a et ea fas ee EM wa es fs ee es ae Se ed et vo) v / 
p= Get password and store it in szPswd... * / 
[* es a cs EK et pe ed ea hag en hs Recreate tt ay pee be po a * / 


WinQueryWindowText (WinWindowFromID(hwndDlg, ID_PASSWORD) , 
sizeof (szPswd), szPswd); 


{/*------- ar 
f*® OF xf 
/*------- = 


WinQueryDlgItemText (hwndDlg, ID_ PASSWORD, sizeof (szPswd), 
SzPswd) ; 
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/* ge i ag cpa as ea ag aaa eae aay Sg Sy wa eh ee a a el Es a ea ah A aay lee eed ca ey bap cy oe Nn ag eee xf 
/* Get unsigned SHORT value and store it in sValue... sa | 
fe The Signed parameter is FALSE for an unsigned value ae | 
{s and TRUE for a possible signed value */ 
/* ay et i yey Sa Has a yg a a a ay sg A Re as a ts a cay aS act ey et ge hs es eh a ee a ed Be eg * / 


WinQueryDlgItemShort (hwndDlg, ID_ENTRY, &sValue, FALSE); 


5.11.5 Numeric data only 


To limit an entry field to numeric data you must subclass the entry field window 
and throw away those keystrokes not required. Do not forget that you will prob- 
ably need to keep some non-numeric keystrokes, for example, backspace, tab, 
minus sign and enter. For example: 


/* a a a a eg ee Rat ee Eo, Ce ee yk Sp ery eee es ge I en ie ah cag ee! Se ee * / 
/* First define your numeric procedure anda pointer tothe */ 
/* public entry field procedure sa 
/* ee spas a te Sk at a, a as Ny ah ag a Ra fe et a rt ee gt er oe Se ot a * 7 


MRESULT EXPENTRY NumericProc (HWND, ULONG, MPARAM, MPARAM) ; 


PFNWP EntryFieldProc; /* Public Entry Field procedure */ 
/* ice cms tee estas tas ag ge ha ee gen ee args ey ees Tye Sgt aye geass ee, py Se, A eee, * / 
/* In your WM_INITDLG case statement save the address of arf 
/* the public entry field procedure * / 
/* yak a a pac py Gee a, Flee a Fa ee a tne a Fg at ere ee not et Ne ge SN * / 


case WM_INITDLG: 
EntryFieldProc = WinSubclassWindow (WinWindow FromID 
(hwndDlg, ID_ENTRY), (PFNWP)NumericProc) ; 


/* fs a fe ae eh ce aS eh pe fies ee, a ed Sle ee fe ee ey ed Se Re A ee ce eee * / 
/* The following is the subclassed window procedure ny 
/* ad ts ees ef ee et Ss es Ee ee eS ee Se ee ee Se a * yf 


MRESULT EXPENTRY NumericProc(HWND hwnd, ULONG msg, 
MPARAM mp1, MPARAM mp2) 


{ 
SHORT EskKeyFlags, 
sCnr: 
1£ (msg == WM_CHAR) /* Lt this 18 a char ms¢ */ 


fskKeyFlags = SHORT1IFROMMP (mp1) ; 
sChr = SHORTIFPROMMP (mp2) ; 
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1f (! (fskKeyFlags & KC_KEYUP) ) /* Only act on key down */ 
if ( (sChr < 0x30 || sChr > 0x39) && /* Not numeric ltd 
(sChr != 8) && /* Not backspace */ 

isChr l= 9) G& /* Not tab =i 

(eChr != 027D) && i™ Not = mf 

ieChr != 0xD) } /* Not enter a 


WinAlarm(HWND_DESKTOP, WA_WARNING) ; 
return (MRESULT) TRUE; /* Throw away keystroke */ 


} /* Call public entry field procedure */ 
return (* EntryFieldProc) (hwnd, msg, mpl, mp2) ; 


5.11.6 Read-only entry field 


If you require a read-only entry field then send the control an EM_SETREADONLY 
message or add the style ES_READONLY to the control in your dialog template 
either by using the dialog box editor or manually: 


WinSendMsg (WinWindowFrom1iID(hwndDlg, ID_ENTRY), 
EM SETREADONLY, (MPARAM) TRUE, 0); 


/*------- ap: 
ee Te a | 
/*------- ai 3 
ENTRYFLELD no TD ENTRY, 77, 25, 100, 16, ES CENTER | 


ES_MARGIN | ES_READONLY | WS_GROUP | 
NOT WS_TABSTOP 


Alternatively, use a static control instead of an entry field and use WinSet 
WindowText or WinSetDlgItemText to change the text: 


WinSetWindowText (hwndDlg, "New Title"); 


/*------- mf 
/* OF =f 
{/ *®----=+-- = 7 


WinSetDlgItemText (hwndDlg, FID_TITLEBAR, "New Title"); 
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5.11.7 Unreadable entry field 


To make an entry field unreadable so that it can be used for entering passwords, 
use the style ES_UNREADABLE. This causes each entered character to be dis- 
played as an asterisk (*). You can either enter it manually in your dialog box tem- 
plate as shown: 


ENTRYFIELD uv, LD PASSWORD, 77, 37, 45, 8, 
NOT ES_AUTOSCROLL | ES_MARGIN | 
ES_UNREADABLE 


or you can use the dialog box editor and check the Unreadable checkbox for that 
entry field’s styles. In fact, the 16-bit dialog box editor does not support this style so 
you must enter it manually. If you do this, however, and then make further changes 
to the dialog box using the editor you will lose the ES_ UNREADABLE style and 
must enter it again, so beware. 

You cannot change this style for an entry field dynamically. For example, the 
code: 


hPwd = WinWindowFromiID(hwndDlg, ID_PASSWORD) ; 


WinSetWindowULong(hPwd, QWL_STYLE, 
(WinQueryWindowULong (hPwd, QWL_STYLE) 
| ES UNREADABLE) ) ; 


will not work. The reason 1s that if changing this style flag meant that the window 
changed from being unreadable to readable, it would be possible to write a 
program to change the state of password entry fields and read them, thereby 
removing the password protection. 


5.11.8 Writing data 


To write character data to an entry field use WinSetWindowText or 
WinSetDlgItemText: 


WinSetWindowText (WinWindowFromiID(hwndDlg, ID_ENTRY), 


a Tesi") s 
fae ame = ae 
y? DE a 
{Passe = me 


WinSetDlgItemText (hwndDlg, ID_ENTRY, "Text"); 


If you need to write an integer value to an entry field then use WinSetDlg 
TtemShort. This converts the integer value directly to text for you; there is no 
need to do any conversion yourself. If it is an unsigned value then set the Signed 
parameter to FALSE, otherwise set it to TRUE. The following statement writes 
the unsigned integer sID to an entry field: 
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WinSetDlgItemShort (hwndDlg, ID_ENTRY, sID, FALSE) ; 
To clear data from an entry field just write null to it: 


WinSetDlgItemText (hwndDlg, ID_ENTRY, ""); 


5.12 Focus 


The default dialog procedure sets the focus to the first control defined in the dialog 
box template. To override this call WinSetFocus in your WM_INITDLG case 
statement. However, you must return TRUE from WM_INITDLG to tell Presen- 
tation Manager that the focus has changed, otherwise it will revert to the first 
control: 


/* aa ae, Ey ah a ae ane ae tty SE an Sn be Ea Na gas ht en Nn ees San ag Eas cence * / 
/* Set the focus to entry field ID_ENTRY bak 5 
/* Se eh ee eR ces GR No Re oa ee hehe ane a fe Sy a gg ga a ge tea ye fees Ep * / 


case WM_INITDLG: 
WinSetFocus (HWND_DESKTOP, WinWindowFromID(hwndDlg, 
TD ENTRY) } 


return (MRESULT) TRUE; /* Focus has changed */ 


5.13 Icons 


5.13.1 System icon in a dialog box 


To include a system icon in a dialog box just add a CONTROL statement directly to 
your DLG file. But be careful if you use the dialog box editor afterwards; it does 
not support this so you will lose it. You will also receive a warning message when 
you start the dialog box editor if it encounters such a statement. 


/* hae Be ack cect ea ed ee ee a ee et BA ae nk A ey * / 
/* Forthe information icon */ 
/* i a Bg a gee eh Ba ks ne eh eh Eh a Bn oe AS) aa * / 


CONTROL "#11", SPTR_ICONINFORMATION, 100, 15, 22, 16, 
We STATIC, SS_SYSICON | WE_VISIBLE 
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CONTROL "#14", SPTR_ICONWARNING, 100, 15, 22, 16, WC_STATIC, 
55_SYSICON [| WS_VISIBLE 


For all the "#n" and SPTR_* values see the PMWIN.H include file in the OS/2 
version 2.0 developer’s toolkit. 


5.13.2 User icon in a dialog box 


To include your own icon in a dialog box use the dialog box editor to define and 
position the icon on the window and then add an ICON statement to your resource 
file, specifying which icon filename you want associated with the icon ID. In your 
WM_INITDLG statement simply call WinLoadPointer and send a WM_SETICON 
message to the dialog box: 


ICON ID_ICON dlggen.ico 

The associated control statement in the dialog template is: 

ICON LD_TCON; LD TCON, 3; 337 20, 16, WSE.GROUP 
and in the WM_INITDLG code: 


hDlgBoxIcon = WinLoadPointer (HWND_DESKTOP, (HMODULE) NULL, 
LD_ ICON) = 
WinSendMsg (hwndDlg, WM_SETICON, (MPARAM)hD1lgBoxIcon, 0); 


5.14 Listboxes 


5.14.1 Inserting items 


To insert items into a listbox, send it an LM_INSERTITEM message. The first 
parameter of this message indicates where the item is to be inserted. It can be 
at the end, LIT_END, in ascending, LIT_SORTASCENDING, or descending, 
LIT_SORTDESCENDING, sequence, or at any position: 


static SHORT sIdx; 


Static PSA szCountry!] = {"Austria", "Belgium", "Caneda", 
'‘Denmark™, “Eoypt", "Finland", 
"Greece", "Hungary", "India", 
"Japan", “Kenya”, “*hbibya'", 
"Morocco", "Nigeria", "Oman", 
"Peru", "Qatar", "Romania", 


'Spain", “Turkey”, "Uruguay", 
"Venezuela", "Wales", "Xanxere", 
"Yemen", "Zambia"}; 
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ror (sldx = 0; sldx =< 26; sidx++4) 


{ 
WinSendDlgItemMsg(hwndDlg, ID_LISTBOX, LM_INSERTITEM, 
MPFROMSHORT (LIT_END) , 
MPFROMP (szCountry [sIdx])); 


5.14.2 Selecting items 


To select an item in a listbox, send it an LM_SELECTITEM message. Remember 
that the item’s index is zero-based, so to select the first item in a listbox set the first 
parameter of the message to zero: 


WinSendDlgItemMsg(hwndDlg, ID_LISTBOX, LM_SELECTITEM, 
MPFROMSHORT (0), (MPARAM) TRUE) ; 


5.14.3 Deselecting items 


To deselect an item from a listbox, send it an LM_SELECTITEM message with the 
second parameter set to FALSE. The first parameter may either be the actual index 
of the selected item or LIT_NONE: 


WinSendDlgIitemMsg(hwndDlg, ID_LISTBOX, LM _SELECTITEM, 
; (MPARAM) LIT NONE, (MPARAM) FALSE) ; 


If you wish to deselect a// items in a multiple selection listbox then you must loop 
through the listbox, deselecting each one separately. The value LIT_NONE for the 


first parameter in this type of listbox is ignored, since selecting another item in a 
multiple selection listbox does not deselect any previously selected item. 


5.14.4 Deleting items 


To delete an item from a listbox send it an LM_DELETEITEM message: 
static SHORT sildx; 


WinSendDlgiItemMsg(hwndDlg, ID_LISTBOX, LM_DELETEITEM, 
MPFROMSHORT (sIdax), 0); 


If you need to delete a// items then send it an LM_DELETEALL message: 


WinSendDlgitemMsg(hwndDlg, ID_LISTBOX, LM_DELETEALL, 0, 0); 
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5.14.5 Retrieving the text of a selected item 


Listboxes generate a WM_CONTROL message whenever an event, such as selecting 
an item, occurs for a listbox. To process it, check the low word of the mp1 para- 
meter, using the SHORT1FROMMP macro, for the listbox ID, and then the high 
word of the mp1 parameter, using the SHORT2FROMMP macro, for the LN_* noti- 


fication code (in this instance LN_SELECT). 


To read the text of the selected item you must first send the listbox an 
LM _QUERYSELECTION message to get the index of the selected item, taking 
care to note that the first entry in a listbox has an index of zero. Once you have 
this value send it an LM_QUERYITEMTEXT message to retrieve the actual text: 


SHORT sIdx; 
CHAR ezCtry [10]; 


case WM CONTROL: 
Switch (SHORTILFROMMP (mp1) ) 


{ 


case ID LISTBOX: 


0.14.6 


To process the selected items in a multiple selection listbox, first send an 
LM_QUERYSELECTION message with the first parameter set to LIT_FIRST, 


switch (SHORT2FROMMP (mp1) ) 
{ 
case LN_SELECT: 
sIdx = (SHORT)WinSendDlgItemMsg (hwndDlg, 
LD LISTBOA, LM OQOUERYSELECTION, 
D, OF 


WinSendDlgitemMsg (hwndDlg, ID_LISTBOX, 
LM QUERYITEMTEXT, 
MPFROM2 SHORT (sIdx, 
Ssi_.zeot (szCtry)), 
MPFROMP(szCtry) ); 


break; 


default: 
break; 
} 


break; 


Processing multiple items 
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this will return the index of the first selected item. You can then process this item 
and then send another LM_QUERYSELECTION message with the first parameter 
set to the index previously returned. Continue this until LIT_NONE is returned: 


SHORT sldax; 


case ID_PROCMULT: /* Get first selection */ 
sIdx = (SHORT) WinSendDlgIitemMsg(hwndDlg, ID_LISTBOX, 
LM QUERYSELECTION, (MPARAM) LIT FIRST, 0); 
while(sIdx != LIT NONE) 
{ /* Get its text */ 
WinSendDlgItemMsg(hwndDlg, ID_LISTBOX, 
LM QUERYITEMTEXT, MPFROM2SHORT (sIdx, 
sizeof (szCtry)), MPFROMP(szCtry) ); 
/* Display it */ 
WinSetDlgItemText (hwndDlg, ID_ENTRY, szCtry) ; 


/* fii al cy 8 a a et eh a a oe ce Oh a en ee ans ey * / 
/* Slow down so we can see it happen */ 
a = 
DosSleep (1000); /* DO NOT DO THIS IN PM PROGRAMS wf 
/* AFFECTS PERFORMANCE SEVERELY a 
/* ee fe a ay Fear eh a ey ln a, Ee ee eh fi et et ol nt gs ok a Ff 


/* Deselect it */ 
WinSendDlgItemMsg(hwndDlg, ID_LISTBOX, 
LM _SELECTITEM, MPFROMSHORT (sIdx) , 
(MPARAM) FALSE) ; 
/* Get next */ 
sIdx = (SHORT) WinSendDlgItemMsg(hwndDlg, 
ID _LESTBOX, LM OUERYSELECTION, 
(MPARAM) sIdx, 0); 
} 
WinSetDlgiIitemText (hwndDlg, ID_ENTRY, "Done"); 
return FALSE; /* All done */ 


If this process is going to take some time, and it may well do, since many items 
could be processed, then you should consider putting it in another thread. If you do 
not want the user interacting with your application while this thread is running then 
you can disable any relevant controls until the thread has completed (see Sec. 5.8). 


Note: aDosSleep call has been used in this code. Whatever you do, do not 
do this in your own code. The next message will not be taken off the system 
queue until this procedure returns control to Presentation Manager, and 
that will not be at least until the DosSleep time period is up. It has 
only been done here so that you can see what is happening when the 
multiple selections are being processed and for no other reason. 
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5.14.7 Saving data associated with items 


When inserting items into a listbox it is often useful to save data associated with 
each item, for example the key field of a database row. To do this, after inserting 
the item send the listbox an LM_SETITEMHANDLE message specifying the zero- 
based index of the item and its data: 


ULONG ulKeyValue; 
SHORT slax? 


for (sid = Or Sicx = 26; saldx++) 
{ 
WinSendDlgItemMsg(hwndDlg, ID_LISTBOX, 
LM _ INSERTITEM, MPFROMSHORT (LIT_END) , 
MPFROMP(szCountry [SIdx]) ); 


/* hae ee es ee ee a eee * / 
ulKeyValue = sIdx +1; /* szCountry and ulKeyValue would */ 
/* probably be obtained froma a 
/* database. In this case just aes 
/* give a key value of 1->26. = y 
/* ES eS he Ne ed ee ED pe Re ee nt ef 


WinSendDlgItemMsg(hwndDlg, ID_LISTBOX, LM_SETITEMHANDLE, 
(MPARAM)sIdx, (MPARAM) ulKeyValue) ; 


At its simplest we have just saved the key field of a database row. In reality, you 
would probably need to store more data, in which case you define the necessary struc- 
ture and store a pointer to it in the item handle, as follows, for 16-bit: 


static SHORT sIdx; 
SEL sel; 


typedef struct _DBDATA 
{ 

USHORT usKey; 

CHAR sBzCapital[(2Z0)-; 
} DBDATA, *PDBDATA; 


PDBDATA pDB_Data; 


case WM_INITDLG: 
for (sIdx = 0; sIdx < 26; sIdx++) 
{ 
WinSendDlgItemMsg(hwndDlg, ID_LISTBOX, LM_INSERTITEM, 
MPFROMSHORT (LIT_END), 
MPFROMP(szCountry [sIdx])); 
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DosAllocSeg (sizeof (DBDATA), &sel, 0); 
pDB_Data = MAKEP(sel, 0); 
pDB_Data->usKey = sIdx +1; 
strcpy (pDB_Data-sszCapital, szCapital [siIdx]); 
WinSendDlgItemMsg(hwndDlg, ID_LISTBOX, 
LM SETITEMHANDLE, (MPARAM) sIdx, 
MPFROMP(pDB_ Data) ); 
} 


break; 


case ID_DELETE: 
pDB_ Data = (PDBDATA) WinSendDlgItemMsg (hwndDlg, 
ID_LISTBOX, LM _QUERYITEMHANDLE, 
MPFROMSHORT (sIdx), NULL) ; 
DosFreeSeg (SELECTOROF (pDB_ Data) ); 


return FALSE; 


Here we store just a couple of fields, the key field and one other—the capital city. 
Before we can store the data, however, we need to allocate storage for the struc- 
ture, 22 bytes in this case. Now, a very important point to note here is that when- 
ever storage is allocated in OS/2 version 2.0 it is allocated in multiples of 4kb pages 
only, and so a request for 22 bytes will actually allocate 4kb and so if we are not 
careful we could consume far more memory than is required. This is one area 
which needs careful consideration when converting from 16-bit OS/2. The import- 
ance of converting this area with care cannot be overstressed. If you were to just 
change DosAllocSeg to DosAllocMem then your program would consume 
far more memory than it needed, so allocate a suitable number of pages and, if 
necessary, suballocate it for your own particular needs. That said, let us return 
to look at the code. 

Although this is rather a trivial example it does serve to show what needs to be 
done when either converting to 32-bit or writing for 32-bit for the first time. In the 
code shown, we know that we are only going to display 26 items in the listbox. 
However, in reality we may not know how many items we will be displaying, 
and so our 32-bit memory management may need to be more complex. Here we 
just allocate a 22-byte segment for each item and store a pointer to it in the item 
handle. We must remember, though, when we delete an item from the listbox we 
should free the memory associated with it. Similarly, on exit we should free any 
remaining memory. 

Now, looking at the following 32-bit version, if we just issued a DosAllocMem 
for 22 bytes for each item, as we did with DosAllocSeg above, we would in fact 
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allocate 26 x 4096 bytes, or 104kb. Instead, we allocate a 4kb page and suballo- 
cate memory within that. In this particular case we know we only have 26 items 
to insert, so we only require 26 x 22 bytes, or 572 bytes, and so one 4kb page 
will be more than sufficient. It is worth mentioning here that when you initialize 
a memory object for suballocation, 64 bytes of this memory are used for control 
information, and when actually suballocating the memory using DosSubAlloc- 
Mem the allocation size should be a multiple of eight otherwise it will be rounded up. 
So, in our example, whenever we suballocate a 22 byte portion of memory, 24 
bytes are actually allocated each time. 

So, for our 32-bit version we first allocate a page of memory and initialize it for 
suballocation. We can then actually suballocate the memory object and store the 
returned pointer in the item handle. As we did for the 16-bit version, every time 
we delete an item from the listbox we free the relevant suballocated memory using 
DosSubFreeMem, and when exiting free all memory using DosSubUnsetMem 
and DosFreeMem: 


typedef struct _DBDATA 
{ 

USHORT usKey; 

CHAR szCapital[20]; 
} DBDATA, *PDBDATA; 


PDBDATA DDB Data; 
static PVOID BaseMen, 
MemOffset; 


case WM_INITDLG: 
DosAllocMem(&BaseMem, 4096, PAG READ | PAG WRITE | 
PAG COMMIT) ; 
DosSubSetMem(BaseMem, DOSSUB_INIT, 4096) ; 
ror (sldx = 0; sidx =< 26; sildx++) 
{ 
WinSendDlgItemMsg (hwndDlg, ID_LISTBOX, LM_INSERTITEM, 

MPFROMSHORT (LIT_END) , 

MPFROMP (szCountry [sidx])); 
DosSubAllocMem(BaseMem, &MemOffset, sizeof (DBDATA) ); 
pDB_Data = MemOffset; 

PDB _Data=->usKey = sidx +1; 
strcpy (pDB_Data->szCapital, szCapital [sidx] } +; 


WinSendDlgItemMsg(hwndDlg, ID_LISTBOX, 
LM SETITEMHANDLE, (MPARAM) sIdx, 
MPFROMP (pDB_ Data) ); 
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break; 
case [D_ DELETE: 
pDB_Data = (PDBDATA) WinSendDlgitemMsg (hwndDlg, 
ID_LISTBOX, LM QUERY ITEMHANDLE, 
MPFROMSHORT(sIdx), 0); 
DosSubFreeMem(BaseMem, DDB Data, sizeof (DBDATA) ); 
return FALSE; 
case 1D BAIT: 
DosSubUnsetMem(BaseMem) ; 
DosFreeMem (BaseMem) ; 


break; 


5.14.8 Retrieving data associated with items 


After saving data in an item handle, you can retrieve it again by sending the listbox 
an LM_QUERYITEMHANDLE message: 


static SHORT sIdx, 


ULONG ulKeyValue; 

/* aE TS ae Gy ee a a eae Te IE Ce nS a ae Ee YE a POE Se ae Eg ae pn TET a Ee Reena ee * / 
/* Tf we are just retrieving a ULONG value. uid 
/* Gp ag lp a ge a le vi fy Dag es peta ty Se Se ee ope a arcing Ss oe ee * f 


case LN_SELECT: 
sIdx = (SHORT) WinSendDlgItemMsg (hwndDlg, ID_LISTBOX, 
LM OUERYSELECTION,; 0, QO); 


if (sIdx !=LIT_NONE) /* If nothing selected then ignore */ 
{ f Ras oe i ee SS SSS 55> * 
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ulKeyValue = (ULONG)WinSendDlgItemMsg (hwndDlg, 
ID _ LISTBOX, LM_QUERYITEMHANDLE, 
MPFROMSHORT (sIdx), 0); 
WinSetDlgItemShort (hwndDlg, ID_ENTRY, 
(SHORT) ulKeyValue, FALSE) ; 


} 

break; 
/* og ey a ag ey a ng ce ae ee oe ee ee at * / 
/* Or, to retrieve any data associated witha listbox item. * if 
/* Sn eg hapa ey Sy SH a yee Bas ay ig ee ye eS ca a ae a a ae ea ea tee an Bk eel ces es * / 


case LN_SELECT: 
sIdx = (SHORT)WinSendDlgItemMsg(hwndDlg, ID_LISTBOX, 
LM QUERYSELECTION, 0, 0); 


i yee Oe ee oe ee ne a Sarde ea YO ae ROS RI er pe aed Rr ee * 
if (sIdx !=LIT_NONE) /* If nothing selected then ignore */ 
/* ay se aaa a yg ge a ee eee, eg es ee * / 


pDB_ Data = (PDBDATA)WinSendDlgItemMsg (hwndDlg, 
LD_LISTBOX, LM QUERY ITEMHANDLE, 
MPFROMSHORT (sIdx), 0); 
WinSetDlgItemText (hwndDlg, ID_ENTRY1, 
pDB_Data->szCapital); 
WinSetDlgItemShort (hwndDlg, ID_ENTRY2, 
(SHORT) pDB_ Data->uskey, FALSE) ; 


} 


break; 


Note that this code does not show the WM_CONTROL case statement but just the 
LN_SELECT statement. (See Fig. 5.15 for the full listing.) 


5.14.9 Listbox style 


LS_NOADJUSTPOS 


If you use this style for a listbox it is drawn at the size specified and can cause parts 
of an item to be clipped at the bottom of the box. This is very evident if you change 
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to a large font in a listbox after it has been initialized. By omitting this style the 
listbox is sized according to whatever font will be used initially so that only com- 
plete lines will be drawn. 


LS_EXTENDEDSEL 


This is a variation of the LS_MULTIPLESEL style. It allows items to be selected by 
swiping the pointer over them without releasing the mouse button. It also supports 
multiple selection by pressing and holding down the Shift or Ctrl key and selecting 
with the mouse button. With the Shift key pressed down when the mouse button is 
pressed, the item pointed to, plus all other items above it, up to the previously 
selected item are marked. With the Ctrl key pressed down when the mouse button 
is pressed, just that item is selected leaving any previously selected item selected. 
Also, pressing Ctrl-/ marks all and Ctrl-\ unmarks all. 


LS_NOVERTSCROLL 


This style, which causes a listbox not to have a vertical scroll bar, is documented in 
the Presentation Manager Programming Reference Manual (volume 2, version 1.2, 
page 16-1). However, it was never implemented in the product and so is not avail- 
able for use. 

If you do not want a vertical scroll bar in your listbox then see Sec. 5.14.10. 


5.14.10 Removing scroll bars 


There is no clean method for removing a scroll bar from a listbox. The best that can 
be done is to get the handle of the scroll bar and use WinDestroyWindow to 
destroy it: 


/* st fea ea es he ee pee oe aes ee he a eg Se, a A kk ty er Se ce * / 
f* The scroll bar ID for a listbox’ s vertical scroll baris */ 
/* 0xCO0l1 and for a horizontal scroll bar is OxcOU02. * f 
/* This is, however, undocumented, so use with caution, ba 
/* 1t could change ina later version. aad 
/* ca Ee AS Ng BN ts a a a he ay ln le St ch aca a at ee tongs * / 


hwndListbox = WinWindowFromID(hwndDlg, ID_LISTBOX) ; 
hwndVbar = WinWindowFromiD(hwndListbox, 0xC001) ; 
hwndHbar = WinWindowFromiID(hwndListbox, 0xC002) ; 
WinDestroyWindow (hwndVbar) ; 

WinDestroyWindow (hwndHbar) ; 


However, this leaves a blank space, which looks untidy. Note that removing a vertical 
scroll bar does not prevent scrolling up and down using the arrow keys on the 
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keyboard, whereas removing a horizontal scroll bar does prevent sideways scrolling. 

The preferred approach, and one that is documented and does not depend on the 
scroll bar IDs, is to enumerate the listbox’s windows for the scroll bars, and then 
destroy them: 


hwndListbox = WinWindowFromID(hwndDlg, ID_LISTBOX) ; 


hEnum = WinBeginEnumWindows (hwndListbox) ; 
while (hwndChild = WinGetNextWindow(hEnum) ) 


{ 
if (WinQueryWindowULong (hwndChild, QWL_STYLE) & SBS_VERT) 


hwndVbar = hwndChild; pS ee eee eS eee ee a 
j* SBS VERT = 1, SBS _ HORA = 0 *¥ 
else [PSS Para aa SSeS ae Fs 


hwndHbar = hwndChild; 
} 


WinEndEnumWindows (hEnum) ; 


WinDestroyWindow(hwndVbar) ; 
WinDestroyWindow (hwndHbar) ; 


5.14.11 Listbox columns 


Using presentation parameters 


The easiest way to arrange data in columns in listboxes is to use presentation 
parameters to change the font to a non-proportional type, for example Courier. 
See Chapter 4 for more details. 


Using proportional fonts 


If your columns hold purely numeric data, and that also means no leading blanks, 
then it does not matter what font you use. Numbers take up the same space, so they 
will line up even using a non-proportional font. See Fig. 5.10 which has a listbox 
with the first three rows containing numbers only. 

However, if you need to display text in columns then you need to use an 
ownerdraw listbox and do the drawing of items yourself. 


5.14.12 Ownerdraw 


This topic has probably caused more problems than any other in Presentation 
Manager. Briefly, if you want to do anything out of the ordinary with a listbox, 
the chances are you will have to resort to an ownerdraw listbox. What this means 
is that you are responsible for drawing the items in the box, so it gives you complete 
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freedom to do as you please. Probably the most common use of ownerdraw list- 
boxes is to arrange data in columns, but their use is really unlimited. 

As a simple introduction we will look at a listbox that centralizes the data in a 
single column and uses its own colours for highlighting. Although this is a very 
simple example, it does show the basic steps that can be built on to produce some- 
thing more complex. We will then enhance this to include columnar data, and then 
finally to add horizontal scrolling. 

So, to start with, you must define your listbox with the style LS_OWNERDRAW. 
Now, when you have an ownerdraw listbox your application receives two special 
messages, WM_MEASUREITEM and WM_DRAWITEM. The purpose of the 
WM_MEASUREITEM message is to establish the height and width of the item to 
be drawn in the listbox, and the WM_DRAWITEM message is sent whenever the 
item needs to be drawn. 

Looking at the WM_MEASUREITEM message first, all we need to do here is query 
the font metrics to get the maximum vertical distance from one character baseline 
to the next character baseline, 1MaxBaselineExt, for the current logical font. 
Once we have this value we return it to the system. Since we do not have a 
horizontal scroll bar at the moment we are not interested in the width, so we return 
zero for its value: 


HPS hps; 

FONTMETRICS £m; 

SHORT cxText., 
cyText ; 


case WM_MEASUREITEM: 
hps = WinGet PS (WinWindowFromID(hwndDlg, ID_LISTBOX) ) ; 
GpiQueryFontMetrics(hps, sizeof (FONTMETRICS), &fm) ; 
cyText = (SHORT) fm. 1MaxBaselineExt; 
CxText = 03 
WinReleasePS (hps) ; 
return MRFROM2SHORT (cyText, cxText) ; 


Whenever an ownerdraw listbox needs to be redrawn, for example when an item 
is inserted or selected, a WM_DRAWITEM message is sent to its owner. On entry, the 
second parameter, mp2, is a pointer to an OWNERITEM structure, which gives us 
information about the item to be drawn, such as the size of the rectangle in which 
it is to be drawn, its select state, a handle to its presentation space and others, but 
for this simple example that’s all we are interested in: 


typedef struct _OWNERITEM 
{ 

HWND hwnd; 

HPS hos ; 

ULONG fsState; 
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ULONG fsAttribute; 
ULONG fsStateOld; 
ULONG fsAttributeOld; 
RECTL xrclitem; 
LONG iditem; 
ULONG hitem; 

} OWNERITEM; 


If £sState is 0 then the item is not selected, so we set the normal colours, in the 
following case yellow on dark green; if it is 1 then it is selected, so we reverse the 
colours. All that needs to be done now is to draw the text and exit: 


POWNERITEM pOwner; 
RECT rol: 


case WM_DRAWILTEM: 
pOwner = (POWNERITEM) mp2; 
rel.xRight = pOwner=srclitem.xRight; 
rcl.xberftt = pOwner-srclitem.xLeft; 
rel.yTop = pOwner==srcliItem.ytTop; 
rcl.yBottom = pOwner->rclitem.yBottom; 


GpiSetBackMix (pOwner->hps, BM_OVERPAINT) ; 


if (!pOwner->fsState) /* Unselected */ 
{ 
GoiSetBackColor (pOwner->hps, CLR_DARKGREEN) ; 
GoiSetColor (pOwner->hps, CLR_YELLOW) ; 
} 
else /* Selected */ 
{ 
GopiSetBackColor (pOwner->hps, CLR_YELLOW) ; 
GopiSetColor (pOwner->hps, CLR_DARKGREEN) ; 
} 


WinSendDlgIitemMsg (hwndDlg, ID_LISTBOX, LM _QUERYITEMTEXT, 
MPFROM2 SHORT (pOwner->iditem, 
sizeof (szListBuff)), 
MPFROMP(szListBuff)); 


WinDrawText (pOwner->hps, strlen(szListBuff), szListBuftf, 
ercl, 0, U, DIT CENTER | DT TEXTATTRS 
DT ERASERECT) > 


/* Donot let PMhighlight */ 
pOwner->fsStateOld = pOwner->fsState = 0; 
return (MRESULT) TRUE; /* Donot let PMdraw dt | 
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The important points to note here are: 


1 Current and old states must be set to 0 or else Presentation Manager will take 
over highlighting and change what we have done. 

2 Wemust return TRUE to prevent Presentation Manager from doing the draw- 
ing. If we do not then the text will be left justified and in system colours. 


If all you want to do with your listbox is to change the font or foreground and 
background colours then there is no need to resort to an ownerdraw listbox as you 
can do it with presentation parameters (see Chapter 4). However, if you use pre- 
sentation parameters to change the font in an ownerdraw listbox then you must 
put the call to WinSet PresParam in your WM_MEASUREITEM statement, other- 
wise the item height will not be set correctly, and if you use a font larger than the 
system font, it will be clipped. Not only that, but it must only be executed once, 
otherwise the program will receive an exception due to insufficient stack space 
and terminate. You therefore need a first-time flag to overcome this, as follows: 


Static BOOL fFirst = TRUE; 


case WM _ MEASUREITEM: 
rt (ft Paret) 
{ 
Sstrepy (szront, “24.Hely") >: 
WinSet PresParam(WinWindowFromiID(hwndDlg, ID _LISTBOX) , 
PP _FONTNAMESIZE, sizeof(szFont), 
SzFont ) ; 
fFirst = FALSE: 
ai 
hps = WinGetPS (WinWindowFromID(hwndDlg, ID_LISTBOX) ); 
WinReleasePS(hps); 
return MRFROM2SHORT (cyText, cxText) ; 


Suppose we now wish to display data in columns, for example a country name in 
the left-hand column and its capital city in the right-hand column. A very quick 
and easy way to do this is to split the item rectangle into separate rectangles, treat- 
ing each rectangle as a column. The country would be drawn in the left-hand col- 
umn and its capital in the right-hand column. To make it easy to identify which 
text is to go in which column, a tab character is inserted between each string prior 
to inserting it into the listbox. 

When an item is about to be drawn, the second parameter of the WM_DRAWITEM 
contains the size of the rectangle that is to be used to draw the item, and since we do 
not have a horizontal scroll bar we must make sure that we have enough room in 
the listbox to display the data, otherwise it will be clipped. 
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Since we only need two columns, we divide the rectangle by two and draw the 
country in the left-hand rectangle. We then adjust the coordinates for the right- 
hand rectangle and draw the capital in that, as follows: 


Stetic P82 szCountry([] = {"Austria’, "Belgium", "Canada", 
"Denmark", "Egypt", "Finland", 
"Greece", "Hungary", "India", 
"Japan", "Kenya", "Libya", 
"Morocco", "Nigeria", "Oman", 
‘Peru’, "QGatar’, "Romania”’, 
"Spain", "Turkey", “Uruguay”, 
"Venezuela", "Wales", "Xanxere", 
"Yemen", “ZGambia" }+ 


Static PSZ sgCapitall[] =f 
"Vienna", "Brussels", "Ottawa", 
"Copenhagen", "Cairo", "Helsinki", 
"Athens", "Budapest", "Delhi", 
wre". “MaALroo.”. "Teipols*, 


"Rabat", “Lagos”, "Muscat", 
"Lama", “Doha", “Bucharest”, 
"Madrid", "Ankara", "Montevideo", 
‘Caracas, "Cardilri", "None", 
tSana’a™, *“Lusaka" } : 
CHAR szgListBurt (50), 
*ps zCountry, 
*oszCap Ltal: 


case WM_INITDLG: 
for {(sidx = 0; sildax < 26: sidx4++} 
{ 
Sprintt (S$zbistBurt, "se\tss", ezCountry |sldx], 
ezCapitalletldax|}; 
WinSendDlgItemMsg(hwndDlg, ID_LISTBOX, LM_INSERTITEM, 
MPFROMSHORT (LIT_END) , 
MPFROMP (szListBuff)); 
} 
break; 
case WM_DRAWITEM: 
pOwner = (POWNERITEM) mp2; 
/* Sollt into two and draw */ 
/* itemin left rectangle */ 
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rcl.xRight = pOwner->rclItem.xRight/2; 
CCL. SLEeEC = pOwner->rclitem.xLeft; 
rel.yToo = pOwner->rclitem.yTop; 
rcl.yBottom = pOwner->relItem.yBottom:; 


GpiSetBackMix (pOwner->hps, BM_OVERPAINT) ; 


if (!pOwner->fsState) /* Unselected a J 
{ 
GpiSetBackColor (pOwner->hps, CLR _DARKGREEN) ; 
GpiSetColor (pOwner->hps, CLR_YELLOW) ; 
} 
else /* Selected ae 
{ 
GpiSetBackColor (pOwner->hps, CLR _YELLOW) ; 
GpiSetColor (pOwner->hps, CLR _DARKGREEN) ; 
} 


WinSendDlgItemMsg(hwndDlg, ID_LISTBOX, LM _QUERYITEMTEXT, 
MPFROM2 SHORT (pOwner->1idItem, 
sizeot (sziistBurt)), 
MPFROMP(szListBuff£) ); 


PSZCountery = strtokiszbistBurt, "\e"} ; 
pezCepital =strtoki(NULL, "\E")+¢ 


WinDrawText (pOwner->hps, strlen(pszCountry), pszCountry, 
ercl, 0, 0, DP LEFT | DT TEXTATTRS | DT _FBRASERECT } ; 


/* Draw next item in right rectangle */ 
rol,.xLert = tcl.sekighe: 
rel.xRight = pOwner=srclitem.xRight; 


WinDrawText (pOwner->hps, strlen(pszCapital), pszCapital, 
erc., OO; 0, DI_bEFPT | DT TEXTATTRS 
| DT_ERASERECT) ; 
: /* Donot let PM highlight */ 
pOwner->fsStateOld = pOwner->fsState = 0; 
return (MRESULT) TRUE; /* Do not let PM draw * 


Let us now consider what needs to be done to handle horizontal scrolling. You 
will remember that with an ownerdraw listbox we get two special messages, and 
one of these, WM_MEASUREITEM, is used to establish the height and width of 
the item to be drawn. Up to now we have not been concerned with the item 
width, we just returned zero since we did not implement horizontal scrolling. How- 
ever, now that we wish to use horizontal scrolling we need to calculate the item 
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width and return it to the system. We do this by first retrieving the item text and 
then calling GoiQueryTextBox, as follows: 


POINTL points |TATBOX COUNT] ; 


case WM_MEASUREILTEM: 
hps = WinGetPS (WinWindowFromID(hwndDlg, ID _LISTBOX) ) ; 
WinSendDlgIitemMsg(hwndDlg, ID_LISTBOX, LM QUERYITEMTEXT, 
MPFROM2 SHORT (sIdx, 
sizeof (szListBuEtf)), 
MPFROMP (szListBuff)); 


GpiQueryTextBox(hps, (LONG) strlen(szListBuff), 
SszListBurt, TXTBOX COUNT, points) ; 


exTéext = (USHORT) pointe |[TXTBOxX TOPRIGHT] .x + 20; 
WinReleasePS (hps) ; 
return MRFROMZSHORT (cyText, cxText) ; 


This returns the relative coordinates of the rectangle required in which to draw the 
text. Unfortunately, we have an added complication here, and that is the tab char- 
acter we inserted to denote where the next column starts. This is treated just like 
any other character rather than the space we want. So, if we use this value you 
will find that not all the text will be scrollable once it has been formatted into 
columns. As an example consider the following, the tab character being denoted 
by ‘T 


Item text: DenmarkTCopenhagen 
Width returned from GpiQueryTextBox: 182 
Approximate width when formatted: 200 


So, when fully scrolled, not all the text will be visible. For this reason we extend the 
width a certain amount; 20 is sufficient for this example but you may find you will 
need a different value depending on your data. You can, of course, just return a 
constant value that will ensure that your item text will always be fully scrollable. 
It is really just a matter of what you intend to display. 


Note: This only applies where you have columnar data. If the text is to be 
displayed as a single ‘column’ then the value returned by GpiQueryText- 
Box will be accurate. 


Having retrieved the item width, we now need to process the WM_DRAWITEM 
message actually to draw the text in the listbox. Now, on entry to this message, 
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mp2 contains the size of the rectangle into which the item is to be drawn. This rec- 
tangle, rcl Item, represents the physical space in the listbox in which the text is to 
be drawn by default. We can change this if we wish, and indeed we will because we 
want to split this rectangle into two parts for our columns, so we change the right- 
hand coordinate to be half its original value and draw the text as before. Now, 
because we have horizontal scrolling we may need to change the start position 
of the second column, depending on whether scrolling has taken place or not. 
We will know if the text has been scrolled because rclItem.xLeft will be nega- 
tive on entry. If this is the case then all we need do is adjust the left-hand coordinate 
of our second rectangle by the scroll amount: 


CHAR szbListBuff[50], 
eoszCounctry, 
*oszCapital; 


case WM_DRAWLTEM: 


pOwner = (POWNERITEM) mp2; 
rcl.xRight = pOwner->rcliItem.xRight/2; 
rel .xLett = pOwner->rclitem.xLeft; 
fol. ToD = pOwner-—>relitem.yTop; 


rcl.yBottom = pOwner->rclitem.yBottom; 
WinSendDlgIitemMsg(hwndDlg, ID_LISTBOX, LM_QUERYITEMTEXT, 
MPFROM2 SHORT (pOwner->1idIitem, 
sizeof (szListBuff)), 
MPFROMP (szListBuff)); 


pezCountry = strtok (ezListBurf, "\t"); 
pezCapltal = strtok(NULL, "\E"); 


WinDrawText (pOwner->hps, strlen(pszCountry), pszCountry, 
&rcl, 0, 0, DIT_LEFT | DI _TEXTATTRS | Dil_ERAGERECT) : 


/* pea a any pg a gS eos Sg ts ae a ah egg Es es Se SS aie * / 
/* Draw next item in the right-hand rectangle */ 
/* allowing for horizontal scrolling a 
{* eet ac a py ns Ss es a ey es se ee ee ee ee * 7 


if (pOwner->rcliItem.xLeft < 0) 
/* i.e. we have been scrolled */ 
rel.xLeft = rel.xRight + pOwner->rclitem.xLeft; 
else 
rol .XLeft = rel.xRight; 
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rcl.xRight = pOwner->rclItem.xRight; 


WinDrawText (pOwner->hps, strlen(pszCapital), pszCapital, 
erecl, 0, 0, D?_LEFY | DT. TEZTATTRS 
| DT_BRASERECT) ; 


/* Donot let PMhighlight */ 
pOwner->fsStateOld = pOwner->fsState = 0; 
return (MRESULT) TRUE; /* Do not let PM draw ad 


When an item has been selected in an ownerdraw listbox with columnar data, it 
can easily be decoded because we inserted tab characters between the columns. We 
do this in the LN_ SELECT case statement, as follows: 


Static SHORT sIdx: 


CHAR S2ListBurTt [50], 
*pszCountry, 
*oszCapital - 


case WM_CONTROL: 
Switch(SHORTLFROMMP (mp1) ) 
{ 
case ID LISTBOX: 
Switch (SHORT2FROMMP (mp1) ) 
{ 
case LN SELECT: 
sIdx = (SHORT)WinSendDlgIitemMsg (hwndDlg, 
ID LISTBOX, LM OUERYSELECTION, 
G, 0}: 


WinSendDlgItemMsg (hwndDlg, ID _LISTBOX, 
LM OQUBRRYITTEMTEAT, 
MPFROM2 SHORT (sIdx, 
sizeof {sazhListBuft)}, 
MPFROMP (szListBuff)); 


DezCountry = strbtok(szListBufr, "\t"}3 
pezCapital =strtok{(NULbh, "\t"); 
break; 

default: 
break; 


break; 
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5.14.13 Non-selectable items 


If you need to prohibit selection of certain items in a listbox then you must use an 
ownerdraw listbox and handle the selection yourself, as discussed in the previous 
section. In the code for the sample program of Fig. 5.15, you will notice that 
Finland is not selectable; this is handled in the WM_DRAWITEM case statement 
where the highlighting is handled, as shown in the following example: 


case WM_DRAWITEM: 
if ((!pOwner->fsState) || /* Unselected * 
(pOwner->idItem == 5) ) /* Donot allowFinland */ 


GoiSetBackColor (pOwner->hps, CLR _DARKGREEN) ; 
GoiSetColor (pOwner->hps, CLR_YELLOW) ; 
} 
else /* Selected at 
{ 
GopiSetBackColor (pOwner->hps, CLR_YELLOW) ; 
GopiSetColor (pOwner->hps, CLR_DARKGREEN) ; 
} 
; /* Do not let PM highlight */ 
pOwner->fsStateOld = pOwner->fsState = 0; 
return (MRESULT) TRUE; /* Do not let PM draw ed 


You must, however, still code a trap for it in the LN_SELECT statement. In this 
program a warning beep is sounded. 

This can easily be extended to exclude all entries if desired. You could use 
WinEnableWindow to disable the listbox, but this would also prohibit scrolling 
and so is not much use here. 


5.15 Menus 


Pop-up menus are discussed in detail in Chapter 13. 


5.15.1 Menu bar in a dialog box 


To add a menu bar to your dialog box, first define the menu layout in your resource 
file: 


MENU ID_MENU PRELOAD 
BEGIN 
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SUBMENU iwOpLLonS™ , TD_OPTIONS 
BEGIN 
MENULTEM "lest +L", [D_TESTI 
MENULTEM "Test wi", 1D TEST2 
MENUITEM "Test. 3", LD TESTS 
END 
END 


Then add a call to WinLoadMenu and send a WM_UPDATEFRAME message to the 
frame to tell it to update. If you omit to update the frame then the menu will not 
appear until you minimize and restore the box. You should put this in your 
WM_INITDLG case statement: 


case WM_INITDLG: 
WinLoadMenu(hwndDlg, (HMODULE)NULL, ID MENU); 
WinSendMsg (hwndDlg, WM_UPDATEFRAME, (MPARAM) FID MENU, 0); 


break; 


Do not forget to leave space for the menu bar when using the dialog box editor to 
create the dialog box. Failure to do so will cause some of your controls to be cov- 
ered when the menu bar is displayed. 


5.16 Miultiline entry fields 


5.16.1 Clearing an MLE 


To clear the text from an MLE use WinSetDlgItemText or WinSetWindow- 
Text to write a null to it: 


WinSetDlgItemText (hwndDlg, ID_MULTILINE, ""); 


[tose em lr 
ff? OF * f 
/*------- a 


WinSetWindowText (WinWindowFromlID(hwndDlg, 
1 MUTE NB) ¢ "34 


5.16.2 Importing a file 


To import a file to an MLE you must first allocate a buffer into which you read the 
file, or part of the file, and then set this buffer as the current transfer buffer for the 
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MLE. You can then import the file. If you require the file to be inserted at the cur- 
rent cursor position then set the insertion point to -1. 

The following sample code reads in the CONFIG.SYS file and imports it at the 
current cursor position. Note that it assumes you have installed OS/2 on the C: 
drive which, for version 2.0, is no longer mandatory: 


PVOID BaseMem; 

TPT ipt; 

HFILE hFile; 

ULONG ulAction, 
ulBytesRead; 


/* Allocate one page - 4KB */ 
DosAllocMem(&BaseMem, 4096, PAG READ | PAG WRITE | 
PAG COMMIT) ; 


DosOpen("C:\\CONFIG.SYS", &hFile, &ulAction, (ULONG) NULL, 
(ULONG) NULL, 
OPEN _ACTION_OPEN_IF_EXISTS, 
OPEN FLAGS SEQUENTIAL | 
OPEN SHARE DENYNONE | 
OPEN_ACCESS_ READONLY, 
(ULONG) NULL) ; 


DosRead(hFile, BaseMem, 4096, &ulBytesRead) ; 
DosClose(hFile) ; 


WinSendMsg (WinWindowFromID(hwndDlg, ID_MULTILINE), 
MLM SETIMPORTEXPORT, 
(MPARAM) BaseMem, MPFROMLONG (4096) ); 


ip = «1: /* Set insertion point for current cursor position */ 


WinSendMsg (WinWindowFromID(hwndDlg, ID_MULTILINE), 
MLM IMPORT, (MPARAM) &1ipt, 
MPFROMLONG (ulBytesRead) ) ; 


DosFreeMem (BaseMem) ; 


5.17 Styles 


5.17.1 Changing a control’s style 


To change a control’s style, for example to change an entry field’s style of left align 
to centred, use WinSetWindowULong: 
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HWND hkEntry; 


/* a ae ey a a a, gah Ee eel oe Hames at ae fe he er ah AS ed ae id eet ee a * / 
/* Get the handle of the entry field */ 
/* Se a a a A te a es a ge Ne he a SA * / 


/* By faci i Fae aes! as PN Gi em cee Sy ee coed Pome ek Sa ae a aaah oe See Nl gees ee * / 
/* Change its style to centred */ 
{* Bae te cet fae a aE ne ee By BS eh eee, Eth Nose * / 


WinSetWindowULong (hEntry, QWL_STYLE, 
WinQueryWindowULong (hEntry, QWL_STYLE ) 
| ES_CENTER) ; 


5.17.2. Removing and adding tab stops 


You also use WinSetWindowULong to remove, or add, the tab stop from a dialog 
box control, for example a pushbutton: 


HWND hButton; 


/* oe ear Sie NE ON ge SE DSP ae, WO a * / 
/* To remove WS_TABSTOP */ 
/* eek ae aye eek ae ey ee ee * / 


hButton = WinWindowFromID(hwndDlg, ID_EXIT); 


WinSetWindowULong (hButton, QWL_ STYLE, 
WinQueryWindowULong (hButton, QWL_STYLE ) 
& ~WS_TABSTOP) ; 


ae eae eae * / 
/* To add WS_TABSTOP */ 
iS ener emer an ere rer area mee * / 


hButton = WinWindowFromID(hwndDlg, ID_EXIT); 


WinSetWindowULong (hButton, QWL_STYLE, 
WinQueryWindowULong (hButton, QWL_STYLE ) 
| WS_TABSTOP) ; 


5.18 Text 


5.18.1 Backslash in a static text window 


If you require a backslash (\) in a static text window then, as in the C language, 
you must code a double backslash, \\. 
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5.18.2 Changing a dialog box title 


To change the title of a dialog box use WinSetWindowText with the window 
handle set to the actual dialog box handle: 


WinSetWindowText (hwndDlg, "New Title") ; 
Alternatively, use WinSetDlgItemText: 


WinSetDlgItemText (hwndDlg, FID _TITLEBAR, "New Title") ; 


5.18.3 Changing the text in a dialog box control 


To change the text in a dialog box control use WinSetWindowText with the win- 
dow handle set to the handle of the control you wish to change. Use WinWindow- 
FromID to get this value: 


/* a hp a a he ay a Pp Pe a a at a a eee ees Sed fe PN ee * / 
/* Change the text of pushbutton ID_EXIT */ 
/* er ne ae eee TO NS ree eA Seed Pee Oe ee oe SMe, Set ae ort arene rae eS SS TONY SO a 


WinSetWindowText (WinWindowFromID(hwndDlg, ID_EXIT), 
" Quit " ) : 


As before, you can also use WinSetDlgItemText: 


WinSetDlgItemText (hwndDlg, ID_EXIT, "Quit"); 


5.18.4 Forcing a line break in static text windows 


If you have a static text window with word wrap defined in your dialog box, style 
DT_WORDBREAK, and you wish to force a line break, then manually insert \012 at 
the point in the text you wish the break to occur as shown: 


CTEXT "Line one\012Line two\012Line three", 
ID LBREAK, 140, 50, 47, 31, DT WORDBREAK 


will produce the following three lines centralized in the window: 
Line one 


Line two 
Line three 


The CTEXT aligns the text centrally. 
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You can also do this by using WinSetWindowText within your program: 


WinSetWindowText (WinWindowFromID(hwndDlg, ID _LBREAK) , 
"Line 1\012Line 2\012Line 3"); 


Unfortunately, this is not supported by the dialog box editor so the \012s are 
ignored and the text is treated as one long string, so be careful if you use it to 
change other controls. 


5.19 Sample programs 


5.19.1 Miscellaneous controls and activities 





Figure 5.1. Miscellaneous controls and activities output. 


This program (Fig. 5.1) illustrates many of the topics covered in this chapter, 
including: 


Dialog box as a main window 
Minimizing a dialog box 

Menu bar 

Pop-up menu 

Status bar 

Numeric-only entry field 
Centralizing the text in an entry field 
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Making an entry field unreadable 
Making an entry field read-only 
Icons in a dialog box 

User button 

Removing/adding default pushbutton 
Removing/adding tab stops 
Changing text in controls 

Forcing line breaks in a text field 
Changing focus at initialization 
Window IDs 


The program comprises a dialog box as the main window (Fig. 5.1). Initially, the 
three entry fields are blank, the status shows some initial text and the static ‘word 
break’ text field contains three lines. The default pushbutton is OK so if you press 
Enter, or click the mouse button on OK the following happens: 


Entry fields 1 and 2 display their respective IDs 
The dialog box title changes 

The Exit pushbutton text changes to Quit 
The status changes 

The ’word break’ text field changes 

The default status of OK is removed 


Pressing OK again toggles the dialog box title, status and the Exit pushbutton 
text, and the default status is returned to OK. 

Notice that the text in Entry Field 2 is centralized and that you cannot enter 
any alphabetic characters. Entry Field 1 is read only, while typing anything in 
the Password field results in an asterisk being displayed for each character 
entered. 

If you position the mouse pointer over the dialog box and press button 2 you will 
activate the pop-up menu. Pressing button 1 on any menu item will cause a beep 
and the closure of the menu. Similarly, selecting any item from Options on the 
menu bar causes a beep. For a description of pop-up menus see Chapter 13. 

Finally, if you press the user button it is redisplayed inverted and sounds a beep. 

The following listings show the program’s header file, Fig. 5.2, resource file, Fig. 
5.3, dialog template, Fig. 5.4, and C source file, Fig. 5.5. 


#define DLG_GEN 256 
#define ID_OK 257 
#define ID_EXIT 258 
#define ID_ICON 259 
#define ID_ENTRY1 260 
#define ID_ENTRY2 261 


Figure 5.2. Miscellaneous controls and activities: header file. Continues. 
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#define ID _MENU 262 
#define ID OPTIONS 263 
#define ID_TEST1 264 
#define ID_TEST2 265 
#define ID_TEST3 266 
#define ID _MENU2 267 
#define ID_ITEM1 268 
#define ID_ITEM2 209 
#define ID_ITEM3 270 
#define ID_ITEM4 Zi l 
#define ID_ITEM5 Zz 
#define ID _ITEM6 273 
#define ID_STATUS 274, 
#define ID _LBREAK ad5 
#define ID PASSWORD 2t6 
#define ID_USERBUTTON 277 
#define ID_LOCK 278 


Figure 5.2. Miscellaneous controls and activities: Header file. Concluded. 


#include <os2.h> 
#include "dlggen.h" 


ICON ID_ICON dlggen.ico 
BITMAP ID LOCK lock.bmp 


MENU ID MENU PRELOAD 


BEGIN 
SUBMENU 'wOptlons", ID_OPTIONS 
BEGIN 
MENUITEM "Test wl", ID TESTI 
MENUITEM "Test w2", ID FEST2 
MENUITEM ‘Test.«3.", LD TESTS 
END 
END 


MENU ID _MENU2 PRELOAD 

BEGIN 
MENUITEM "Menu Item~1", ID_ITEM1 
MENUITEM "Menu Item ~2", ID_ITEM2 
MENUITEM "Menu Item ~3", ID_ITEM3 


Figure 5.3. Miscellaneous controls and activities: resource file. Continues 
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MENUITEM SEPARATOR 

MENUITEM "Menu Item~4", ID_ITEM4 

MENUITEM "Menu Item~5", ID_ITEM5 

MENUITEM "Menu Item ~6", ID_ITEM6 
END 


rcinclude dlggen.dlg 


Figure 5.3. Miscellaneous controls and activities: resource file. Concluded. 


DLGINCLUDE 1 "DLGGEN.H" 


DLGTEMPLATE DLG_ GEN LOADONCALL MOVEABLE DISCARDABLE 
BEGIN 
DIALOG "Miscellaneous Dialog Box Controls", DLG_GEN, 105, 
56, 195, 101, FS_NOBYTEALIGN | WS_VISIBLE, 
FCF _SYSMENU | FCF_TITLEBAR | FCF_MINBUTTON 


BEGIN 
ENTRYFIELD we 2D BNPRY I, Bf5 $425. 205 Sy 
NOT ES_AUTOSCROLL | ES_MARGIN 
ENTRYFIELD um ED_ENTRYZ, 67, S/, 36, &, 


NOT ES_AUTOSCROLL | ES_MARGIN 
CTLDATA 8, 5, 0, 0 

ENTRYFIELD w"., ID PASSWORD, 77, 37, 45, 8, 
NOT ES_AUTOSCROLL | ES_MARGIN | 
ES UNREADABLE 

DEFPUSHBUTTON "OK", LD_OK, 5, 15, 29, 13 

PUSHBUTTON text", TD_ExIT, 45, 15, 29, 13 

CONTROL oe, LD USERBUTION, L50, 12, 32, 23, 
WC_BUTTON, BS_USERBUTTON | WS_TABSTOP | 
WS_VISIBLE 


LTEXT '‘Mntry Flieia 1", L0G, 5, 70; 55, 2 

LTEXT YenEry Piel 2", LOL, 5, 3S, 85,8 

ICON ID_ICON, ID_ICON, 5, 35, 20, 16, WS_GROUP 

LTEXT "Password", LOZ, 30, 35, 44, 8 

COTE AT ee. Lo STARUS, OU, 0, 195, 

CTEXT "Line one\012Line two\012Line three", 
ID_LBREAK, 140, 50, 47, 31, DT_WORDBREAK 

CONTROL "#14", SPTR_ICONWARNING, 100, 15, 22, 16, 
WC_STATIC, SS_SYSICON | WS_VISIBLE 

END 
END 


Figure 5.4. Miscellaneous controls and activities: dialog template. 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
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INCL_WINWINDOWMGR 
INCL_WINFRAMEMGR 
INCL_WINSWITCHLIST 
INCL_WINSYS 

INCL _WINDIALOGS 
INCL_WINBUTTONS 
INCL_WINPOINTERS 
INCL_WINENTRYFIELDS 
INCL_WINMENUS 
INCL_WININPUT 

INCL GPIBITMAPS 


#include <os2.h> 
#include <string.h> 
#include "dlggen.h" 


MRESULT EXPENTRY DlgProc (HWND, ULONG, MPARAM, MPARAM) ; 
MRESULT EXPENTRY NumericProc(HWND, ULONG, MPARAM, MPARAM) ; 


VOID Button_Paint (PUSERBUTTON) ; 


PFNWP /* Public Entry Field procedure */ 


[RRKRKKKEKEKKEKKEKRKEKKEKKKEKERKEKKEEKKEKEKEKEKKKEKKKKKEKKKKEKRKEKKKEKEKKREKKE / 


EntryFieldProc; 


INT main (VOID) 
{ 
HAB hab; 
HMQ hmq; 
HWND hD1g; 


hab =Wininitialize (0); 
hmq = WinCreateMsgQueue (hab, 0) ; 


WinDlgBox (HWND_DESKTOP, HWND_DESKTOP, DlgProc, 
(HMODULE) NULL, DLG_GEN, 0); 


[Roe e eae es Bae ae era eee See ases ee See eee Seesaw 
/* hDlg = WinLoadDlg (HWND_DESKTOP, HWND_DESKTOP, 
il DilgProc, (HMODULE)NULL, DLG_GEN, 0) ; 


/* WinProcessDlg(hDlg) ; 
/* WinDestroyWindow(hD1g) ; 


WinDestroyMsgQueue (hmq) ; 
WinTerminate(hab) ; 
return 0; 


Figure 5.5. Miscellaneous controls and activities: C source file. Continues. 
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MRESULT EXPENTRY DlgProc(HWND hwndDlg, ULONG msg, MPARAM mp1, 
MPARAM mp2) 


static HWND hDlgBoxIcon, 


hMenu; 
HWND HBUCTON, 
hEntry; 
static BOOL fNewTitle = FALSE; 
ULONG ulStyle; 
SWCNTRL PomEntry ; 
POINTL Sal Big 
HPS hps; 
RECTL rel; 
SHORT Si: 
LONG itolour, 
1X _ Left, 
LY Bot, 
l1ScreenHeight, 
1Screenwidth; 
CHAR szPswda[9]; 
static CHAR szStatus([50] = "This is a status line"; 


[RRKKKEKKKKKKKKEKKKEKKKKKKKKKKKKAKKKKKKKKKKAKKKKKK KKK KKK KKK / 


Switch (msg) 
{ 
case WM_INITDLG: 
EntryFieldProc = WinSubclassWindow 
(WinWindow FromID(hwndDlg, 
ID_ENTRY2), (PFNWP)NumericProc) ; 


WinSendMsg (WinWindowFromID(hwndDlg, ID PASSWORD) , 
EM SETTEXTLIMIT, MRFROMSHORT (8), 0); 

WinSendMsg (WinWindowFromiID(hwndDlg, ID_ENTRY1), 
EM SETREADONLY, (MPARAM) TRUE, QO); 


hDlgBoxIcon = WinLoadPointer (HWND_DESKTOP, 
(HMODULE) NULL, ID_ICON) ; 
WinSendMsg(hwndDlg, WM_SETICON, 
(MPARAM) hDlgBoxIcon, QO); 


WinSet Focus (HWND_DESKTOP, 
WinWindowFromID(hwndDlg, ID_ENTRY2) ); 


Figure 5.5. Miscellaneous controls and activities: C source file. Continues. 
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hMenu = WinLoadMenu (hwndDlg, (HMODULE) NULL, ID _MENU2) ; 
WinLoadMenu (hwndDlg, (HMODULE)NULL, ID_MENU) ; 
WinSendMsg (hwndDlg, WM_UPDATEFRAME, 

(MPARAM) FID_MENU, 0) ; 


l1Colour = CLR_DARKGREEN; 
WinSet PresParam(WinWindowFromID(hwndDlg, ID_STATUS), 
PP_BACKGROUNDCOLORINDEX, 
sizeof (1Colour), &l1Colour); 
1colour = CLR YELLOW; 
WinSet PresParam(WinWindowFromID(hwndDlg, ID_STATUS) , 
PP_FOREGROUNDCOLORINDEX, 
sizeot (lColour), &lCcolour); 


WinSetWindowText (WinWindowFromID(hwndDlg, 
ID STATUS), SZStCacus} ; 


1ScreenWidth = WinQuerySysValue (HWND_DESKTOP, 
SV_CXSCREEN) ; 
1ScreenHeight = WinQuerySysValue (HWND_DESKTOP, 
SV _CYSCREEN) 3 


/* tact Aa tay BS pad th, Seal hth ache ns ED, (eek ern fe es * / 
/* Centre window */ 
/* SS rn Ra ad A ok eae eae fans Bs * / 


WinQueryWindowRect (hwndDlg, &rcl); 

1X_Left = (lScreenWidth - rcl.xRight) / 2; 

1Y_Bot = (1ScreenHeight - rcl.yTop) / 2; 

WinSetWindowPos (hwndDlg, HWND_TOP, 1X _Left, l1Y_Bot, 
0, 0, SWP_MOVE | SWP_SHOW | 
SWP_ACTIVATE) ; 


PgmEnt ry. hwnd = hwndDlg; 
PomEntry.hwndicon = hDLgBoxiIcon; 
PgmEntry.hprog = (HPROGRAM) NULL; 
PgmEntry.idProcess = (PID) NULL; 
PomEntry.1idSession = (ULONG) NULL; 
PomEntry.uchVisibility = SWL_VISIBLE; 
PgmEnt ry . fbJump = SWL_JUMPABLE; 


strcpy (PgmEntry.szSwtitle, 
"Miscellaneous Dialog Box Controls"); 

WinAddSwitchEntry (&PgmEntry) ; 

return (MRESULT) TRUE; 


Figure 5.5. Miscellaneous controls and activities: C source file. Continues. 
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case WM_BUTTON2DOWN: 
WinQueryPointerPos (HWND_DESKTOP, &Pt); 
WinMapWindowPoints (HWND_DESKTOP, hwndDlg, &Pt, 1); 
WinPopupMenu (hwndDlg, hwndDlg, hMenu, Pt.x, Pt.y, O, 
PU_KEYBOARD | PU_MOUSEBUTTON1) ; 
return (MRESULT) TRUE; 


case WM_NEXTMENU: 
return (MRESULT) NULL; 


case WM_ADJUSTWINDOWPOS: 
1f£ (((PSWP) mp1) ->fl & SWP_MINIMIZE) 
{ 
WinShowWindow (WinWindowFromID(hwndDlg, ID_OK), 
FALSE) ; 
WinShowWindow (WinWindowFromID(hwndDlg, ID_STATUS), 
FALSE) ; 
} 
else 
if (((PSWP) mp1) ->fl & SWP_RESTORE) 
{ 
WinShowWindow (WinWindowFromID(hwndDlg, ID_OK), 
TRUE). 2 
WinShowWindow (WinWindowFromID(hwndDlg, 
LD STATUS) ; TRUE): 
} 
return WinDefDlgProc (hwndDlg, msg, mpl, mp2); 


case WM_CONTROL: 
Switch (SHORT2FROMMP (mpl1)) /* Check notification code */ 
{ 
case BN_PAINT: 
/* Check button control 1p */ 
Switch (SHORT1FROMMP (mp1) ) 
{ 
case ID_USERBUTTON: 
Button_Paint (mp2) ; 
return (MRESULT) TRUE; 


default: 
break; 


} 


break; 


Figure 5.5. Miscellaneous controls and activities: C source file. Continues. 
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case WM_COMMAND: 
Switch (SHORTIFROMMP (mp1) ) 
{ 
case ID_TESTI1: 
DosBeep (500, 100) ; 
return FALSE; 


case ID TEST2: 
DosBeep (1000, 100); 
return FALSE; 


case ID TEST3: 
DosBeep (1500, 100); 
return FALSE; 


case ID_ITEM1: 
DosBeep (500, 100); 
return FALSE; 


case ID_ITEM2: 
DosBeep(1000, 100); 
return FALSE; 


case ID_ITEM3: 
DosBeep (1500, 100); 
return FALSE; 


case ID_ITEM4: 
DosBeep (2000, 100); 
return FALSE; 


case ID_ITEM5: 
DosBeep (2500, 100); 
return FALSE; 


case ID ITEM6: 
DosBeep (3000, 100); 
return FALSE; 


case ID_USERBUTTON : 
DosBeep (1000, 100); 
DosBeep (500, 100); 
return FALSE; 


case ID_OK: 


WinSetWindowText (WinWindowFromID(hwndDlg, 


Figure 5.5. Miscellaneous controls and activities: C source file. Continues. 
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ID_LBREAK) , 


"Line 1\012Line 2\012Line 3"); 


if (fNewTitle) 
fNewTitle = FALSE; 

else 
fNewTitle = TRUE; 


if (fNewTitle) 


WinSetWindowText (hwndDlg, 


"Dialog Box with New Title"); 


/* Se See ee SS ee Se SS Se ee eee 
/* WinSetDlgItemText (hwndDlg, FID_TITLEBAR, 
‘New Title") ; 

/* i a fe ee Se ee ee ey ea ee ee 


strcpy(szStatus, "New Status") ; 
WinSetWindowText (WinWindowFromID(hwndDlg, 
ID_EXIT), “Ourt") +s 
WinSetWindowText (WinWindowFromID(hwndDlg, 
ID sTATUS), S2Status) ; 
hButton = WinWindowFrom1ID(hwndDlg, ID_EXIT); 
WinSetWindowULong(hButton, QWL_STYLE, 
WinQueryWindowULong 
(hButton, QWL_STYLE ) 
& ~WS_TABSTOP) ; 
} 
else 
{ 
WinSetWindowText (hwndDlg, 
"Miscellaneous Dialog Box Controls"); 
strcepy (szStatus, "Old Status") ; 
WinSetWindowText (WinWindowFromID(hwndDlg, 
Lo FRU), “Bee i: 
WinSetWindowText (WinWindowFromID(hwndDlg, 
ID_STATUS) , szStatus) : 


hButton = WinWindowFrom1ID(hwndDlg, ID_EXIT); 


WinSetWindowULong (hButton, QWL_STYLE, 
WinQueryWindowULong 
(hButton, QWL_STYLE ) | 
WS_TABSTOP) ; 


Figure 5.5. Miscellaneous controls and activities: C source file. Continues. 
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hEntry = WinWindowFromID (hwndDlg, ID_ENTRY2) ; 

WinSetWindowULong(hEntry, QWL_STYLE, 
WinQueryWindowULong(hEntry, 
OWL STYLE ) | BS _ CENTER) ; 


SID = WINQueryWindowUShort 
(WinWindowFrom1ID(hwndDlg, 
ID_ENTRY1), QWS_ID) ; 
WinSetDlgItemShort (hwndDlg, ID_ENTRY1, sID, 
FALSE) ; 
sID = WinQueryWindowUShort 
(WinWindowFromID(hwndDlg, 
LD_ENTRY2), OWS_ID) ; 
WinSetDlgItemShort (hwndDlg, ID_ENTRY2, sID, 
FALSE) ; 


WinQueryWindowText (WinWindowFromID(hwndDlg, 

ID_PASSWORD) , 

sizeof (szPswd), szPswd); 
WinQueryDlgItemText (hwndDlg, ID PASSWORD, 

sizeof (szPswd), szPswd) ; 
WinQueryDlgItemShort (hwndDlg, ID_ENTRY1, &sID, 

FALSE) 3 /* Unsigned */ 
WinSetFocus (HWND_DESKTOP, 
WinWindowFromID(hwndDlg, 


LD _ENTRY2Z)): 
/* Se Fe ay ee a ce ee a een cn pe ees hn ag Eos ee Bee eee ae ewe ey as ees eochat es et ee * / 
/* Position cursor at start of field and mark as 3 
/* entire field =} 
/* ee ee ee EE ee ee Oy ef ee eS ee eT, ee ee Fe SD * / 


WinSendMsg (WinWindowFromID (hwndDlg, ID_ENTRY2), 
EM SETSEL, MPFROM2SHORT (0, 5), 0); 
ulStyle = WinQueryWindowULong (WinWindowFromID 
(hwndDlg, ID_OK), QWL_STYLE) ; 
if (ulStyle & BS_DEFAULT) 7/* Default */ 


DosBeep (100, 200); 


jf *® i A en a a ed eae ee es Sg ee 8 et ag Fe a eS hs eh aes A aes cl a ed i Ae el * ff 
/* WinSendMsg (WinWindowFromID(hwndDlg, ID_OK), */ 
fe BM SETDEFAULT, (MPARAM) FALSE, 0) ;*/ 
/* sg A ee a ae re ee Se A ete ete Qa a RATE ee eg SA Rh Sa te ce ets * / 


Figure 5.5. Miscellaneous controls and activities: C source file. Continues. 
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WinSetWindowBits (WinWindowFromID(hwndDlg, 
ID_OK), QWL_STYLE, 0O, 
BS_DEFAULT) ; 
WinInvalidateRect (WinWindowFromID(hwndDlg, 
ID_OK), NULL, FALSE) ; 
} 
else /* Not default */ 
{ 
DosBeep (1000, 200); 


/ I 5 a ak yn ce Se Pg ae ag gy oh en a a ee ae a, oe ed es eh te * / 
/* WinSendMsg (WinWindowFromID(hwndDlg, af 3 
/* ID_OK), BM_SETDEFAULT, (MPARAM) TRUE, 0) ;* 

/ I a a ee a et le ee al te Sed a as eg eh et Ne ls ein ott ee) OAK, wc * / 


WinSetWindowBits (WinWindowFromID(hwndDlg, 
ID_OK), QWL_STYLE, 
BS_DEFAULT, BS DEFAULT) ; 
WinInvalidateRect (WinWindowFromID(hwndDlg, 
ID_OK), NULL, FALSE) ; 
} 
return FALSE; 


case 1D EXIT: 
WinDestroyPointer (hD1gBoxIcon) ; 
WinRemoveSwitchEntry (WinQuerySwitchHandle 
(hwndDlg, 0)); 
WinPostMsg(hwndDlg, WM_QUIT, 0, 0); 
break; 


default: 
return FALSE; 
} /* Remove the dialog box */ 
WinDismissDlg(hwndDlg, TRUE); 
break; 


default: 
return WinDefDlgProc (hwndDlg, msg, mpl, mp2); 


} 
return FALSE; 


} 


MRESULT EXPENTRY NumericProc(HWND hwnd, ULONGmsg, 
MPARAM mpl, MPARAM mp2) 


Figure 5.5. Miscellaneous controls and activities: C source file. Continues. 
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SHORT EsKeyFlags, 
sChr ; 
if (msg == WM_CHAR) 
EskKeyFlags = SHORT1FROMMP (mp1) ; 
sChr = SHORTLFROMMP (mp2) ; 
if (! (fsKeyFlags & KC_KEYUP) ) /* Only act on key down */ 
{ 
if ((sChr < 0x30 || sChr > 0x39) && /* Not numeric */ 
(sChr != 8) && /* Not backspace */ 
(eChr != 9) && f* Not. tab od 
(sChr != 0x2D) && /* Not - ol i 
(sChr != OxD) ) /* Not enter ar 
{ 
WinAlarm(HWND_DESKTOP, WA_WARNING) ; 
return (MRESULT) TRUE; 
} 
} 
} /* Call public entry field procedure */ 
return (* EntryFieldProc) (hwnd, msg, mpl, mp2) ; 


} 


fEEKEEREEEKEK KKREERERKEASERKAKEARKE BER ARKERKRKEAEAEKEEKERE KARE / 


VOID Button_Paint (USERBUTTON *ubtn) 
{ 

RECT: DestPt ; 

HBITMAP hbm; 


/* he es ga a da ae me a Ss pa may rs ae nae aa cl a eee ac ee, ea eh ay es Eee ps eg —* / 
/* hbm = WinGet SysBitmap (HWND_DESKTOP, SBMP_DRIVE) ; alt 
/* WinQueryWindowRect (ubtn->hwnd, &DestPt); ail 
/* WinDrawBitmap(ubtn->hps, hbm, NULL, xf 
{f* (PPOINTL) &Dest Pt, CLR_YELLOW, * f 
[ CLR_BLACK, ia 3 
fm ((USHORT) ubtn->fsState ? DBM_INVERT: */ 
ye DBM _ NORMAL) | ods 
td DBM STRETCH) ; i 
/ I pecan a ts fd ere ey eas Sees Se nces esa ea Se se ee Be, Ge ee ty eS ee ee a § 
hbm = GpiLoadBitmap (ubtn->hps, (HMODULE) NULL, ID_LOCK, 
O, O) 3 


WinQueryWindowRect (ubtn->hwnd, &DestPt) ; 

WinDrawBitmap (ubtn->hps, hbm, NULL, (PPOINTL)&DestPt, 
0, 0, ((USHORT)ubtn->fsState ? DBM_INVERT : 
DBM NORMAL) | DBM_STRETCH) ; 

return; 


} 


Figure 5.5. Miscellaneous controls and activities: C source file. Concluded. 
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5.19.2. MLE and radio buttons 


LOZ TOS TOA. 


PROTSHELL=C : \OS2\PMSHELL.EXE 

SET USER _INI=C:\0OS2\0S2.INI _ 
SET SYSTEM INI=C:\0S2\0S2SYS. INT 
SET OS2 SHELL=C:\OS2\CMD.EXE | 





Figure 5.6. MLE and radio buttons output. 


This program (Fig. 5.6) illustrates those problems associated with multiline entry 
fields, radio buttons and presentation parameters. The topics covered include: 


Initializing radio buttons 

Changing fonts 

Importing a file into a multiline entry field 

Verification that numbers in columns are independent of font 


In this program we use presentation parameters to change the font in an entry 
field, listbox and multiline entry field (MLE), though not all fonts can be set in 
an MLE as this program shows. Initially, the radio button for 12.Courier Is 
selected (Fig. 5.6), and the text in the entry field, listbox and MLE uses this 
font. Also, the foreground and background colours of the Read File and 
Clear MLE pushbuttons have been changed from the default colours. The font 
and colour changes for the buttons are achieved by setting their presentation para- 
meters using the dialog box editor, whereas the font for the three main controls, 
entry field, listbox and MLE, are set initially using WinSetPresParam in the 
WM_INITDLG case statement in the program. 
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If you press the 8.Courier radio button then the font changes in the three 
main controls, and the colours for the MLE change to yellow on red. Again, 
this is done using WinSetPresParam. You can also change the font by 
double-clicking a font item in the listbox. 

The Change Font pushbutton will alter the font to 8. Courier and successive 
presses will cause each font defined in the program to be used and, as you will see, 
not all will be accepted in the MLE. If you select a font from the listbox and then 
press Change Font, the next font in the list will be used rather than starting again 
with 8.Courier. 

The Read File pushbutton will cause your CONFIG.SYS file to be imported 
into the MLE at the cursor position. Note that the program assumes you have 
installed OS/2 on the C: drive. 

The following listings show the program’s header file, Fig. 5.7, resource file, Fig. 
5.8, dialog template, Fig. 5.9, and C source file, Fig. 5.10. 


#define DLG_MLE 256 
#define ID_OK Af 
#define ID_EXIT 258 
#define ID_ICON 259 
#define ID_MULTILINE 260 
#define ID_RADIO1 261, 
#define ID _RADIO2 262 
#define ID_RADIO3 263 
#define ID_RADIO4 264 
#define ID_ENTRY1 265 
#define ID_CLEAR 266 
#define ID_FONT 267 
#define ID_LISTBOX 268 


Figure 5.7. MLE and radio buttons: header file. 


#include <os2.h> 
#include "dlgmle.h" 


ICON ID_ICON dlgmle.ico 


rcinclude dlgmle.dlg 


Figure 5.8. MLE and radio buttons: resource file. 
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DLGINCLUDE 1 "DLGMLE.H" 


DLGTEMPLATE DLG_MLE LOADONCALL MOVEABLE DISCARDABLE 


BEGIN 


DIALOG "MLE, Radio Buttons & Presentation Parameters", 
DLG_ MLE, 68, 30, 276, 159, FS_NOBYTEALIGN | 


WS_VISIBLE, 


FCF_SYSMENU | FCF_TITLEBAR | 


PCF _ MINBUT'TON 


BEGIN 
GROUPBOX 
AUTORADIOBUTTON 


AUTORADIOBUTTON 


AUTORADIOBUTTON 


AUTORADIOBUTTON 


BENTRYFIELD 


LISTBOX 


MLE 


PUSHBUTTON 


PUSHBUTTON 


‘Group 1", 100,.8, 7oy 66; 72 

ne <Courver”, TD RADIOL, 16, 128; %3sy 10, 
WS_TABSTOP 

PRESPARAMS PP_FONTNAMESIZE, 
Ox6F432E38L, 0x65697275L, 0x00000072L 
"10 .Courier", TD RADTO2, 16, 113, 72, 10, 
WS_TABSTOP 

PRESPARAMS PP_FONTNAMESIZE, 
Ox432E3031b, 0OxX6972756FL, 0x00007265L 
Hi2,. Courier", TD RADIOS, shy 98, fz, LO; 
WS_TABSTOP 

PRESPARAMS PP_FONTNAMESIZE, 
Ox432E3231b, Ox6972756Fi, 0x00007265L 
"8 Helv", ID_RADIO4, 16, 83, 72, 10, 
WS_TABSTOP 

PRESPARAMS PP_FONTNAMESIZE, 
0x65482E38L, 0x0000766CL 

ne. TD _ENTRYL,; LOS, 119; 158; 28, 
ES_CENTER | NOT ES_AUTOSCROLL | 

ES MARGIN | WS_GROUP 

ID_LISTBOX, 103, 80, 162, 32, 
LS_NOADJUSTPOS 

om" ID MULTILINE, 8, 20, 259, 54, 
MLS_HSCROLL | MLS_VSCROLL 

"Read File”, ID OK, 6, 5, 70, 13 
PRESPARAMS PP_FOREGROUNDCOLOR, 
Ox0000C800L 

PRESPARAMS PP_BACKGROUNDCOLOR, 
0Ox00640000L 

"Clear MLE", [D-CLEAR, 85, 5, 70, 13 
PRESPARAMS PP_FOREGROUNDCOLOR, 
OxOOFFFFOOL 

PRESPARAMS PP_BACKGROUNDCOLOR, 
0x00000064L 

PRESPARAMS PP_FONTNAMESIZE, 


Figure 5.9. MLE and radio buttons: dialog template. Continues. 


Dialog boxes and their controls 


Oxz4SZ2E3031L, Ox6972756FL, 0X00007265L 


PUSHBUTTON (Change Fone”; LD_FONT, 167, 5, @2, 13 
PUSHBUTTON ieee”, ID_EXIT, 240, 5, 29, 13 
END 

END 

Figure 5.9. MLE and radio buttons: dialog template. Concluded. 

#define INCL _WINWINDOWMGR 

#define INCL _WINFRAMEMGR 

#define INCL WINSWITCHLIST 

#define INCL _WINSYS 

#define INCL WINPOINTERS 

#define INCL _WINBUTTONS 

#define INCL WINDIALOGS 

#define INCL _WINLISTBOXES 

#define INCL WINMLE 

#include <os2.h> 

#include <string.h> 

#include "dlgmle.h" 


MRESULT EXPENTRY DlgProc(HWND, ULONG, MPARAM, MPARAM) ; 


J ERREEREREREEKELEEEEARESEE AK ERA EKAKAARAEAARRAKELESEEKEK AEE 


INT main(VOID) 


{ 
HAB 


HMOQ 


hab; 
hmq; 


hab = WinInitialize (0); 
hmq = WinCreateMsgQueue (hab, 0) ; 


WinD1gBox (HWND_DESKTOP, HWND_DESKTOP, DlgProc, 


WinDes 


(HMODULE) NULL, DLG_MLE, 0); 


troyMsgQueue (hmq) ; 


WinTerminate(hab); 


return 0; 


} 


f FRARREKKKA EE EERKAKKRERK RK KEEKREEEKREEREREREREEERRERKEKR EEK | 


MRESULT EXPENTRY DlgProc(HWND hwndDlg, ULONG msg, MPARAM mp1, 


static 


MPARAM mp2 ) 


HWND hDlgBoxIcon; 


Figure 5.10. MLE and radio buttons: C source file. Continues. 
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SWCNTRL PomEntry ; 

RECTL rel: 

LONG LCoLour, 
1X_Left, 
LY _ Bot, 
l1ScreenHeight, 
1Screenwidth; 

CHAR ezront [25] s 

PYOTD BaseMem; 

Ler Lory 

HF ILE hFile; 

ULONG uULACCION, 
ulBytesRead; 

static SHORT sidx = 0, 
sNoFonts = 27; 

static CHAR SZMLEText[] = 


"This is a Multi-line Entry Field"; 


static P&Z szColums[] = ("001 002 003 004 005 006", 
"O10 O11 G12 013 014 015", 
"101 102 103 104 105 L06"}; 


Static PSZ szFontTable[] = 
Lu Courier”, "10.Courier", “12 ,.Courier", 
"14. Courier", "15 Courier’, "18, Courier" , 


24..Courier", “S.Helv", "10.oel;", 

"12 Belly®, "14,.Helyv", "1s. Helv", 
"24,Helv", "6.Helvetica", "10.Helwetica’, 
"12.Helvetica", "14.Symbol Set", 

vis .Symool Set", "24.Symbol Set", 
"10.System Monospaced", 

"10.System Proportional", 


"8.Times New Roman", "10.Times New Roman", 
"12.Times New Roman", "14.Tms Rmn", 
"16 .2ms Rmn", "24.Tms Rm" } + 


Switch (msg) 


{ 
case WM_INITDLG: 
hDlgBoxIcon = WinLoadPointer (HWND_DESKTOP, 


(HMODULE) NULL, ID_ICON) ; 
WinSendMsg (hwndDlg, WM_SETICON, 


Figure 5.10. MLE and radio buttons: C source file. Continues. 
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(MPARAM) hDlgBoxIcon, 0); 


1ScreenWidth = WinQuerySysValue (HWND_DESKTOP, 
SV_CXSCREEN) ; 

1ScreenHeight = WinQuerySysValue(HWND_DESKTOP, 
oV_CYSCREBN ) 3 

WinQueryWindowRect (hwndDlg, &rcl); 


/* we L Saat met Bena 8 Fe Sg a * / 
/* Centre window */ 
/* Sn caer Va aah oe EE Ath tee yh ns ny ed soe ie oe 


1X_Left = (lScreenWidth - rcl.xRight) / 2; 

1Y_Bot = (1lScreenHeight - rcl.yTop) / 2; 

WinSetWindowPos (hwndDlg, HWND_TOP, 1X_Left, 1Y_Bot, 
0, 0, SWP_MOVE | SWP_SHOW | 
SWP_ACTIVATE) ; 


PgomEntry .hwnd = hwndaDlg; 
PomEntry .hwndiIcon = hD gBoxI con; 
PomEntry.hprog = (HPROGRAM) NULL; 
PgmEntry.idProcess = (PID) NULL; 
PgmEntry.idSession = (ULONG) NULL; 
PomEntry.uchVisibility = SWL_VISIBLE; 
PomEntry .fbJump = SWL_JUMPABLE; 


strcpy (PgmEntry.szSwtitle, 
"MLE, Radio Buttons & Presentation Parameters") ; 
WinAddSwitchEntry (&PgmEntry) ; 


WinSendDlgItemMsg (hwndDlg, ID_RADIO3, BM_SETCHECK, 
MPFROMZ SHORT (TRUE, 0), 0}; 


strcepy (szFont, szFontTable[2]); f* 812, Courier" *7/ 

WinSet PresParam(WinWindowFromID(hwndDlg, ID_ENTRY1), 
PP_FONTNAMESIZE, sizeof (szFont), 
szFont) ; 

WinSet PresParam (WinWindowFromID(hwndDlg, 
ID_MULTILINE) , PP_FONTNAMESIZE, 
sizeof(szFont), szFont) ; 

WinSet PresParam(WinWindowFromID(hwndDlg, 
ID_LISTBOX) , PP_FONTNAMESIZE, 
sizeof(szFont), szFont) ; 

WinSetDlgItemText (hwndDlg, ID_ENTRY1, szFont) ; 

WinSetDlgItemText (hwndDlg, ID_MULTILINE, szMLEText); 


Figure 5.10. MLE and radio buttons: C source file. Continues. 
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for (sildx = 0; sidx =< 3+ sildx++) 
{ 

WinSendMsg (WinWindowFromID(hwndDlg, ID_LISTBOX), 
LM_INSERTITEM, MRFROMSHORT (LIT_END) , 
MRFROMP (szColumns[sIdx] )) ; 

} 
for (SIdx = 0; sIdx < SNoFonts; sIdx++) 
{ 

WinSendMsg (WinWindowFromID(hwndDlg, ID_LISTBOX) , 
LM_INSERTITEM, MRFROMSHORT (LIT_END) , 
MRFROMP(szFontTable[sIdx]) ); 

} 
sidx = 0: 


return (MRESULT) TRUE; 


case WM_ADJUSTWINDOWPOS: 
1£ (((PSWP) mp1) ->fl & SWP_MINIMIZE) 
{ 
WinShowWindow (WinWindowFromID(hwndDlg, ID_OkK), 
FALSE) ; 
} 
else 
1£ (((PSWP) mp1) ->fl & SWP_RESTORE) 
{ 
WinShowWindow (WinWindowFromID(hwndDlg, ID_OK), 
TRUE) ; 
} 
return WinDefDlgProc (hwndDlg, msg, mpl, mp2) ; 


case WM_CONTROL: 
Switch (SHORT1IFROMMP (mp1) ) 
{ 
case ID_LISTBOX: 
Switch (SHORT2 FROMMP (mp1) ) 


{ f BSSs SSeS Ses eS SS esas ae 
case LN_ENTER: /* Ignore the first 3 rows */ 
/* ee i a a te yee nt a ee ee * / 


sIdx = (SHORT) WinSendDlgItemMsg (hwndDlg, 
ID_LISTBOX, 
LM_QUERYSELECTION, 0, 0); 
ae {Slax > 2) 


Figure 5.10. MLE and radio buttons: C source file. Continues. 
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Slax <= 3% 
strcpy(szFont, szFontTable[sIdx]); 
WinSetPresParam(WinWindowFromID(hwndDlg, 
ID _biISTBOX) , 
PP_FONTNAMESIZE, 
sizeof (szFont), szFont); 
WinSetPresParam(WinWindowFromID(hwndDlg, 
TD_ENTRY 1) , 
PP_FONTNAMESIZE, 
sizeof (szFont), szFont) ; 
WinSetPresParam(WinWindowFromiID(hwndDlg, 
ID_MULTILINE) , 
PP_FONTNAMESIZE, 
sizeof (szFont), szFont) ; 
WinSetWindowText (WinWindowFromID(hwndDlg, 
LD ENTRY Ly, 8s 
WinSetWindowText (WinWindowFromID(hwndDlg, 
TD _ ENTRY); 
szFontTable[sIdx++] ); 
} 
break; 
default: 
break; 
} 


break; 


case ID_RADIO1: 
case ID_RADIO2: 
case ID_RADIO3: 
case ID_RADIO4: 
Switch (SHORT2FROMMP (mp1) ) 
{ 
case BN_CLICKED: 
1£ (SHORTIFROMMP (mp1) == ID_RADIO1) 
{ 
strcpy (szFont, szFontTable[0]); 
{* "6 Courier" */ 
LColLour = CLR. RED*s 
WinSetPresParam(WinWindowFromID(hwndDlg, 
ID_MULTILINE) , PP_BACKGROUNDCOLORINDEX, 
sizeof(lColour), &lColour) ; 


Figure 5.10. MLE and radio buttons: C source file. Continues. 
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1Colour = CLR_YELLOW; 

WinSet PresParam(WinWindowFromID (hwndDlg, 
ID_MULTILINE) , PP_FOREGROUNDCOLORINDEX, 
sizeor (Colour), &lColour) ; 

} 
1£ (SHORTIFROMMP (mpl) == ID _RADIO2) 
strcpy(szFont, szFontTable[1]); 
je "10.Courier" * / 
1£ (SHORTIFROMMP (mp1) == ID_RADIO3) 

strcpy (szFont, szFontTable[2]); 

j*@ *12 Courier" */ 


if (SHORTIFROMMP (mpl) == ID _RADIO4) 
strcpy (szFont, szFontTable[7]); 
/* "8.Helv" * / 


WinSetDlgItemText (hwndDlg, ID_ENTRY1, 
SZFOnt) 3 
WinSetDlgItemText (hwndDlg, ID _MULTILINE, 
SZMLEText ) ; 
WinSetPresParam(WinWindowFromID(hwndDlg, 
ID_ENTRY1), PP_FONTNAMESIZE, 
Sizeot (ezFont), szFont); 
WinSetPresParam(WinWindowFromiID(hwndDlg, 
ID_MULTILINE) , 
PP_FONTNAMESIZE, 
sizeof(szFont), szFont) ; 
WinSetPresParam(WinWindowFromiID(hwndDlg, 
LD ListBox) ; 
PP_FONTNAMESIZGE, 
sizeof(szFont), szFont); 
break; 


default: 
break; 


} 
break; 


} 


break; 


case WM_COMMAND: 
Switch (SHORTIFROMMP (mp1) ) 


Figure 5.10. MLE and radio buttons: C source file. Continues. 
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case 1D_OR: 
/* Allocate one page - 4KB */ 
DosAllocMem(&BaseMem, 4096, PAG READ | PAG WRITE 
PAG COMMIT) ; 

DosOpen("C:\\CONFIG.SYS", &hFile, &ulAction, 

(ULONG) NULL, 

(ULONG) NULL, 

OPEN ACTION _ OPEN _IF _ EXISTS, 

OPEN FLAGS SEQUENTIAL | 

OPEN _ SHARE _DENYNONE | 

OPEN_ACCESS_ READONLY, 

(ULONG) NULL) ; 
DosRead(hFile, BaseMem, 4096, &ulBytesRead) ; 
DosClose(hFile) ; 


WinSendMsg (WinWindowFromID(hwndDlg, 
ID_MULTILINE) , MLM_SETIMPORTEXPORT, 
(MPARAM) BaseMem, MPFROMLONG (4096) ); 

Lok = 1; 

WinSendMsg (WinWindowFromID(hwndDlg, 
ID_MULTILINE) , MLM_IMPORT, 
(MPARAM) &ipt, 
MPFROMLONG (ul BytesRead) ) ; 

DosFreeMem(BaseMem) ; 

return FALSE; 


case ID CLEAR: 


/* i a a a a ad PS a a ee i ye ed pd at as Bh el cates eh ee ee te * / 
/* WinSetDlgItemText (hwndDlg, if 
| aa ID MULTILINE, *")2 = 
7® a ng ah ee bel et wt a an Pe er ns oes eA i es A at a og ee * / 


WinSetWindowText (WinWindowFromID(hwndDlg, 
LD MULTIGINE); “*}? 


return FALSE; 
case ID_ FONT: 
strcpy (szFont, szFontTable[sIdx]); 
WinSetPresParam(WinWindowFromID(hwndDlg, 
ID_LISTBOX) , PP_FONTNAMESIZE, sizeof(szFont), 
SZPFont } 3 
WinSet PresParam(WinWindowFromID(hwndDlg, 


Figure 5.10. MLE and radio buttons: C source file. Continues. 
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ID_ENTRY1), PP_FONTNAMESIZE, sizeof(szFont), 
szfont) 
WinSetPresParam(WinWindowFromID(hwndDlg, 
ID_MULTILINE) , PP_FONTNAMESIZE, 
Sizeot(szFont), szFont); 
WinSetWindowText (WinWindowFromID(hwndDlg, 
TD ENTRY IL) *") 3 
WinSetWindowText (WinWindowFromID(hwndDlg, 
ID_BNTRY1), 
szFontTable[sIdx++]); 
if (sildx == sNoFonts) 
sidx = 0; 
return FALSE; 
case ID_EXIT: 
WinDestroyPointer(hDlgBoxIcon) ; 
WinRemoveSwitchEntry (WinQuerySwitchHandle 


(hnwndDlg, 0)); 

WinPostMsg(hwndDlg, WM_QUIT, 0, 0); 
break; 
default: 


return FALSE; 


/* Remove the dialog box */ 
WinDismissDlg(hwndDlg, TRUE) ; 
break; 
default: 
return WinDefDlgProc (hwndDlg, msg, mpl, mp2) ; 


} 
return FALSE; 


Figure 5.10. MLE and radio buttons: C source file. Concluded. 


5.19.3 Listboxes 


Although the processing of listboxes 1s, in general, quite straightforward, owner- 
draw listboxes have caused several problems. In this program we look at a simple 
implementation of an ownerdraw listbox as well as a single and multiple selection 
listbox. The topics covered include: 


Selecting/deselecting listbox items 
Processing an ownerdraw listbox 
Processing a multiple selection listbox 
Processing of listbox item handles 
Mnemonics 
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The program displays three listboxes (Fig. 5.11): a single selection with the first 
item initially selected, multiple selection, and an ownerdraw. Items can be 
deselected from the single and ownerdraw boxes by pressing Deselect, and 
can be deleted from the single selection box by pressing Delete. If you select 
items in the multiple selection box and press Process MultSel then each one 
is processed sequentially and beeps when complete. Notice that this option uses 
DosSleep, which is not recommended in practice. It is done here merely to slow 
down the process so that you can see what is happening. The ownerdraw box is 
a simple implementation of columnar data with Finland non-selectable. If you 
select a country in the single selection listbox then the value of its key and its 
capital, stored in the item handle, are displayed. 

You will notice that the first letter in the title over each listbox is underlined to 
show the presence of a mnemonic. Pressing Alt-S, Alt-M or Alt-O will switch focus 
to the relevant listbox. 


Qatar 
Romania 





Figure 5.11. Listboxes output. 


The following listings show the program’s header file, Fig. 5.12, resource file, 
Fig. 5.13, dialog template, Fig. 5.14, and C source file, Fig. 5.15. 
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#define DLG_LBOX 256 
#define ID DESELECT 257 
#define ID_EXIT 258 


#define ID SLISTBOX 259 
#define ID _MLISTBOX 260 
#define ID OLISTBOX 261 


#define ID_ENTRY1 262 
#define ID_DELETE ACs 
#define ID_ENTRY2 264 
#define ID_ENTRY3 265 


#define ID _ PROCMULT 266 


Figure 5.12. Listboxes: header file. 


#tinclude <os2 .h> 
Finclude "listbox.h" 


reinclude listbox.dlg 


Figure 5.13. Listboxes: resource file. 


DLGINCLUDE 1 "LISTBOX.H" 
DLGTEMPLATE DLG_LBOX LOADONCALL MOVEABLE DISCARDABLE 
BEGIN 
DIALOG "Listboxes", DLG_LBOX, 30, 24, 317, 172, 
FS_NOBYTEALIGN | WS_VISIBLE, FCF_SYSMENU | 
PCP TLTLEBAR 


BEGIN 

CTE EL "wSingle Sélection", 101, 8, 155, 80, 8, 
DT_MNEMONIC 

LiIsTBOx 1D SLISTBOX, &, 71, 80, 80 

CTEX "~Multiple Selection", 102, 115, 155, 80, 8, 
DT_MNEMONTIC | NOT WS_GROUP 

LISTBOX LD MLISTBOX, 115, 71, 80, 80, LS MULTIPLESEL 

CTEXT teOwnerdraw”", 103, 216, 155, 91, 8, 
DT_MNEMONIC | NOT WS_GROUP 

LISTBOX ID _OLISTBOX, 212, 71, 100, 83, LS_OWNERDRAW | 


LS_HORZSCROLL 
PUSHBUTTON “Deselect ", ID_DESELECT, 5, 5, 49, 13 
PUSHBUTTON "Delete", ID_DELETE, 65, 5, 40, 13 
PUSHBUTTON “Procées MultSel", ID PROCMULT, 115, &, 79, 13 
PUSHBUTTON "Exit", ID_EXIT, 205, 5, 40, 13 





Figure 5.14. Listboxes: dialog template. Continues. 
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ENTRYFIELD "", ID_ENTRY1, 77, 25, 100, 16, ES_CENTER 


ES MARGIN | ES_READONLY | WS_GROUP | 
NOT WS_TABSTOP 


LTEXT "Capital City"; 104, 9; 28, 54, 8, 

NOT WS_GROUP 
LTE AT "Key", 105, 200, 28, 21, 8, NOT WS_GROUP 
ENTRYFIELD ®", ID ENTRYZ, 232, 30, 39, 8, ES CENTER | 


NOT ES_AUTOSCROLL | ES_MARGIN | ES_READONLY | 
NOT WS_TABSTOP 


LTEXT "Country", L06, 9, 50, 48, 8, NOT WS_GROUP 
ENTRYFIELD "“", ID _ENTRY3, 77; S1, L0G, 8, ES _CENTER | 


END 
END 


NOT ES_AUTOSCROLL | ES_MARGIN | ES_READONLY | 
NOT WS_TABSTOP 


Figure 5.14. Listboxes: dialog template. Concluded. 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#include 
#include 
#include 
#include 


INCL_WINWINDOWMGR 
INCL_WINFRAMEMGR 
INCL_WINSWITCHLIST 
INCL_WINSYS 
INCL_WINLISTBOXES 
INCL_WINMENUS 
INCL_WINDIALOGS 
INCL DOSPROCESS 
INCL_DOSMEMMGR 
INCL GPILCIDS 

INCL GPIPRIMI TIVES 


<os2.h> 
<string.~hs 
<stdio.h> 
"listbox .h”™ 


MRESULT EXPENTRY DlgProc(HWND, ULONG, MPARAM, MPARAM) ; 


fReREKES 


KEKEKKKEEKEEKREEKEEEREREEKEREEKERE REKEKEKEEREEE KER 


INT main (VOID) 


{ 
HAB 


hab; 


Figure 5.15. Listboxes: C source file. Continues. 
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HMQ hmq; 


hab = WinInitialize (0); 
hmg = WinCreateMsgQueue (hab, 0); 


WinD1lgBox (HWND_DESKTOP, HWND_DESKTOP, DlgProc, 
(HMODULE) NULL, DLG_LBOX, 0); 


WinDestroyMsg Queue (hmq) ; 
WinTerminate (hab) ; 
return 0; 


JERREEEEEREER REE SEREERRE EL RERERERRERE EE ERKRRARERERERK ERED / 


MRESULT EXPENTRY DlgProc (HWND hwndDlg, ULONG msg, MPARAM mp1, 


MPARAM mp2 ) 
{ 
SWCNTRL PomEntry; 
RECTL ls 
SHORT SMidax; 
static SHORT stdx, 
eoicds, 
sSavedidx; 
LONG iCaleur, 
1X Left, 
1Y_ Bot, 
1ScreenHeight, 
1ScreenWidth; 
CHAR szFont [15] ; 
typedef struct _DBDATA 
{ 
USHORT usKey; 
CHAR szCapital [40]; 
} DBDATA, *PDBDATA; 
PDBDATA pDB_Data; 
static PVOID BaseMem, 
MemOffset; 
static PSZ szCountry[] = { 





Figure 5.15. Listboxes: C source file. Continues. 


static PSZ 


CHAR 


ULONG 
POWNERITEM 
SHORT 


HPS 
FONTMETRICS 
POINTL 


Switch (msg) 


{ 


Dialog boxes and their controls 


"Austria", "Belgium", "Canada", 
"Denmark", "Egypt", "Finland", 
"Greece", "Hungary", "India", "Japan", 
"Kenya", "Libya", "Morocco", "Nigeria", 
"Oman", “Peru”, "“OGatar", “Romania”, 
"Spain", "Turkey", "Uruguay", 
"Venezuela", "Wales", "Xanxere", 
"Yemen", "Zambia"}; 


szCapital[] = { 
"Vienna", "Brussels", "Ottawa", 
"Copenhagen", "Cairo", "Helsinki", 
"Athens", "Budapest", "Delhi", "Tokyo", 
"Nailroba”, "Tripoli", "Rabat", "Legos", 


"Muscat", "Lima", "Doha", "Bucharest", 
"Madrid", "Ankara", "Montevideo", 
"Caracas", “Cardirti", "None", "Sana‘a”", 
"Lusaka"}; 


BzCtry [LO], 
szlListBurt [50], 
“pezCountry, 
ms zCapitals 
ulKeyValue; 
pOwner; 

CxXTeXL, 

cyText; 

hps; 

£m; 

points [TXTBOX_COUNT] ; 


[RRR KRKKKKKKKKKKKKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKK kK KK / 


case WM_INITDLG: 
WinEnableWindow (WinWindowFromID(hwndDlg, 


ID_PROCMULT), FALSE) ; 


strcepy (szFont, “18.Hely"); 
WinSet PresParam (WinWindowFromID(hwndDlg, 


ID_ENTRY1), PP_FONTNAMESIZE, 
sizeof (szFont), szFont); 


lcolour = CLR_RED: 


Figure 5.15. Listboxes: C source fule. Continues. 
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WinSet PresParam(WinWindowFromiID(hwndDlg, ID_ENTRY1), 
PP_BACKGROUNDCOLORINDEX, 
sizeof(lColour), &l1Colour) ; 

WinSet PresParam(WinWindowFromID(hwndDlg, ID_ENTRY3) , 
PP_BACKGROUNDCOLORINDEX, 
sizeof (1lColour), &lColour); 

lColour = CLR_YELLOW; 

WinSet PresParam(WinWindowFromID(hwndDlg, ID_ENTRY1) , 
PP_FOREGROUNDCOLORINDEX, 

Bizeor (1Colour), &lColour) ; 

WinSet PresParam(WinWindowFromID(hwndDlg, ID_ENTRY3) , 
PP_FOREGROUNDCOLORINDEX, 
sizeof(lColour), &lColour) ; 


1ScreenWidth = WinQuerySysValue (HWND_DESKTOP, 
SV_CXSCREEN) ; 
1ScreenHeight = WinQuerySysValue (HWND_DESKTOP, 
SV_CYSCREEN) + 


/* eos So es a eae * / 
/* Centre window */ 
/* a git a Ne hg pa ee oie 


WinQueryWindowRect (hwndDlg, &rcl); 

1X Left = (lScreenWidth - rcl.xRight) / 2; 

1Y_Bot = (lScreenHeight - rcl.yTop) f 23 

WinSetWindowPos (hwndDlg, HWND_TOP, 1X Left, 1Y_Bot, 
0, 0, SWP_MOVE | SWP_SHOW | 
SWP_ACTIVATE) ; 


PomEnt ry . hwnd = hwndDi¢g: 

PomEnt ry .hwndiIcon = (HWND) NULL; 
PomEntry.hprog = (HPROGRAM) NULL; 
PgmEntry.idProcess = {PID)NULL; 
PgmEntry.idSession = (ULONG) NULL; 
PomEntry.uchVisibility = SWL_VISIBLE; 
PgmEntry . fbJump = SWL_JUMPABLE; 


strcpy (PgmEntry.szSwtitle, "Listboxes") ; 
WinAddSwitchEntry (&PgmEntry) ; 


DosAllocMem(&BaseMem, 4096, PAG _READ | PAG_WRITE | 
PAG COMMIT) ; 
DosSubSetMem(BaseMem, DOSSUB_INIT, 4096); 





Figure 5.15. Listboxes: C source file. Continues. 
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Lor (sildx = 0s sildx < 26: sidx++} 


{ 


f= py aa a se ea es ee a tt st eh ee —* / 
/* If all wewant todois store the key value... */ 
i “7 
/* WinSendDlgItemMsg (hwndDlg, ID_SLISTBOX, ard 
/* LM_INSERTITEM, MPFROMSHORT(LIT_END) , * / 
* MPFROMP (szCountry [sidax] } ); se 
/* ulReyValue = sldx + 1; =F 
/* WinSendDlgItemMsg(hwndDlg, ID_SLISTBOX, ef 
/* LM _SETITEMHANDLE, (MPARAM) sIdx, oe 
i* (MPARAM) ul KeyValue) ; i 
/* 6 pag pa cee a ee ee tg ete a gS ee eee —*/ 
/* a te a Ne ES ts sy a ee ee —_*/ 
/* Otherwise we need to save a pointer to our =e 
/* SETUCTUTE. « . a i 
/* a a a a ps Sp 8 Se en oe a le ay ey —_*/ 


WinSendDlgItemMsg (hwndDlg, ID_SLISTBOX, 
LM_INSERTITEM, 
MPFROMSHORT (LIT_END) , 
MPFROMP (szCountry[sIdx])); 


DosSubAllocMem(BaseMem, &MemOffset, 
sizeof (DBDATA) ) ; 
pDB_ Data = MemOffset; 
pDB_ Data->usKey = sIdx +1; 
strcpy (pDB_Data->szCapital, szCapital[sIdx]); 
WinSendDlgItemMsg (hwndDlg, ID_SLISTBOXx, 
LM _SETITEMHANDLE, (MPARAM) sIdx, 
MPFROMP (pDB_Data) ); 
WinSendDlgItemMsg (hwndDlg, ID_MLISTBOXx, 
LM_INSERTITEM, 
MPFROMSHORT (LIT_END) , 
MPFROMP (szCountry[sIdx])); 
SOrINtLlezlbastBart, "ss\Css", SzCountry [silax] , 
szCapital [sIdx] ) ; 
WinSendDlgItemMsg (hwndDlg, ID_OLISTBOx, 
LM_INSERTITEM, 
MPFROMSHORT (LIT_END) , 
MPFROMP(szListBuff) ) ; 


Figure 5.15. Listboxes: C source file. Continues. 
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} 

WinSendDlgItemMsg(hwndDlg, ID _SLISTBOX, 
LM SELECTITEM, MPFROMSHORT (0), 
(MPARAM) TRUE) ; 

break; 


case WM_MEASUREITEM: 
hps = WinGetPS (WinWindowFromID(hwndDlg, 
ID_OLISTBOX) ) ; 

WinSendDlgItemMsg(hwndDlg, ID_OLISTBOX, 

LM QUERYITEMTEXT, 

MPFROM2 SHORT (sIdx, 

sizeof (szListBuff)), 

MPFROMP(szListBuff)); 
GpiQueryFontMetrics (hps, sizeof (FONTMETRICS), &fm) ; 
cyText = (SHORT) fm. 1MaxBaselineExt ; 
GpiQueryTextBox(hps, strlen(szListBuff), szListBuff, 

TXTBOX COUNT, points); 


{* cc es ed ah ae a ce a ae a ch meee a ee st ta ee I * / 
/* Adda small amount to cxText to ensure the entire */ 
/* item can be read when fully scrolled. Necessary wf 
/* because we need to allow for the ‘tab’ character mI 
/* between columns. ak 3 
/* ee a a ga ee pas cs aw ad eae tat ag ie la ps ea lay ee es a ae 


cxText = (USHORT) points [TXTBOX_TOPRIGHT] .x + 20; 
WinReleasePS (hps) ; 
return MRFROM2SHORT (cyText, cxText); 


case WM_DRAWITEM: 


pOwner = (POWNERITEM) mp2; 
rel.xRight = pOwner-srclitem.xRight/2: 
rcl.xLeft = pOwner->rclitem.xLeft; 
rol.yTop = pOwner->rclitem.yTop; 


rcl.yBottom = pOwner->rcliItem.yBottom; 
GpiSetBackMix (pOwner->hps, BM_OVERPAINT) ; 


if ((!pOwner->fsState) || /* Unselected */ 
(pOwner->idItem == 5) ) /* Do not allow Finland */ 


GpiSetBackColor (pOwner->hps, CLR_DARKGREEN) ; 
GpiSetColor(pOwner->hps, CLR_YELLOW) ; 


Figure 5.15. Listboxes: C source file. Continues. 
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} 
else /* Selected */ 


{ 
GpiSetBackColor (pOwner->hps, CLR_YELLOW) ; 
GpiSetColor (pOwner->hps, CLR_DARKGREEN) ; 
} 
WinSendDlgItemMsg(hwndDlg, ID_OLISTBOX, 
LM _QUERYITEMTEXT, MPFROM2SHORT 
(pOwner->idItem, 
si zeot (szListBuftf)), 
MPFROMP(szListBuff) ); 


pezCountry =strtok(ezListBurr, "\t"); 
pszCapital = strtok(NULL, "\t")}; 


1£ (pOwner->idItem == 5) /* Finland * / 
WinDrawText (pOwner->hps, strlen(pszCountry), 
pezCountry, &rel, VU, G; 
DT LEFT | DI TEXTATTRS | 
DT_ERASERECT | DT_HALFTONE) ; 
else 
WinDrawText (pOwner->hps, strlen(pszCountry), 
pezCountry, &rcel, 0, 0, 
DT? _ LEFT | DT TEXTATTRS | DT_ERASERECT) 3 


j* I Ne Oe ee teh Fe ey HN em cr A ase ye eet xf 
/* Draw next item inthe right-hand rectangle */ 
/* allowing for horizontal scrolling * f 
/* ss fe a A or a eh lg EN Fs ee ah ag Se Sd es eo fe a he ht eh ey * 


1f£ (pOwner->rclitem.xLeft < 0) 
/* 1.e. we have been scrolled */ 


rcl.xLeft =rcl.xRight + pOwner->rclitem.xLeft; 


else 
rel .xLelt =rcel.xRight: 


| 


rel.xRight = pOwner-sreclitem.xRaignet ; 


if (pOwner->idItem == 5) /* Finland */ 
WinDrawText (pOwner->hps, strlen(pszCapital), 
pszCapital, &rel, 0, 0, 
BT LEPT | DI_TEXTATTRS | 
DT_ERASERECT | DT_HALFTONE) ; 


Figure 5.15. Listboxes: C source file. Continues. 
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else 
WinDrawText (pOwner->hps, strlen(pszCapital), 
pszCapltal, &ral, 0; 0, 
DF_LEFT | DT _ TEXTATTRS | DT_BRASERECT) = 
/* Donot let PMhighlight */ 
pOwner->fsStateOld = pOwner->fsState = 0; 
return (MRESULT) TRUE; /* Do not let PM draw aed 


case WM_CONTROL: 
Switch (SHORTIFROMMP (mp1) ) 
{ 
case ID_SLISTBOX: 
Switch (SHORT2 FROMMP (mp1) ) 
{ 
ease LN _ SELECT: 
sIdx = (SHORT) WinSendDlgItemMsg (hwndDlg, 
ID_SLISTBOX, LM_QUERYSELECTION, 
G, O74 
if (sidx != LIT_NONE) 


WinEnabl eWindow (WinWindowFrom1ID (hwndDlg, 
ID _ DELETE) , TRUE) 3 

WinSendDlgItemMsg (hwndDlg, ID_SLISTBOX, 
LM QUBRYITEMTEXT, 
MPFROM2 SHORT (sIdx, 
sizeof(szCtry)), 
MPFROMP(szCtry) ); 

WinSetDlgItemText (hwndDlg, ID_ENTRY3, 


ezCtury) 7 
/* ee es ep ne a i et Ege 2 as es gee ees ee eens a py ered fee * / 
/* Retrieve the key value, if that is all we */ 
/* have saved... “7 
= ak i 
/* ulKeyValue = (ULONG)WinSendDlgItemMsg */ 
f* (hwndDlg, ID_SLISTBOX, */ 
j/* LM QUERYITEMHANDLE, sf 
/* MPFROMSHORT(sIdx), 0); */ 
/* WinSetDigItemShort (hwndDlg, ID_ENTRY2, */ 
j* (SHORT) ulKeyValue, FALSE) ; % f 
/* ye ee ee he gS ae cs fe eae ee fees fe ce es ss ce se ts * 


Figure 5.15. Listboxes: C source file. Continues. 
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/* es GE tS A het eed eae hh A a ew es eae ed bate: A ad Sa feed od oe ity a ea he a xf 
/* Or, retrieve all data associated with a d 
i* the listboe item... * 7 
/* Be a a we ey Ce Cee nt ee SO ee ye ee * / 


pDB_Data = (PDBDATA) WinSendDlgItemMsg 
(hwndDlg, ID_SLISTBOX, 
LM QUERYITEMHANDLE, 
MPFROMSHORT (sIdax), 0); 

WinSetDlgItemText (hwndDlg, ID_ENTRY1, 
pDB_Data->szCapital); 

WinSetDlgItemShort (hwndDlg, ID_ENTRY2, 

(SHORT) pDB_Data->uskKey, FALSE) ; 
} 


break; 


default: 
break; 
} 
break; 


Case [LD MLISTBOX: 
Switch (SHORT2 FROMMP (mp1) ) 
{ 
case LN_SELECT: 
WinEnableWindow (WinWindowFromID(hwndDlg, 


ID_PROCMULT) , TRUE) ; 
break; 


default: 
break; 


} 


break; 


case ID OLISTBOX: 
Switch (SHORT2 FROMMP (mp1) ) 
{ 
case LN SELECT: 
SOidx = (SHORT) WinSendDlgItemMsg(hwndDlg, 
ID OLISTBOX , 
LM _OUERYSELECTION, U, QO} 


if (sOidx == 5) /* Donot allow Finland */ 


Figure 5.15. Listboxes: C source file. Continues. 
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DosBeep (1000, 100); 

WinSendDlgItemMsg(hwndDlg, ID_OLISTBOX, 
LM _SELECTITEM, MPFROMSHORT(sSavedIdx) , 
(MPARAM) TRUE) ; 

break; 

} 

sSavedIdx = sOidx; 

WinSendDlgItemMsg (hwndDlg, ID_OLISTBOX, 
LM QUERYITEMTEXT, MPFROM2SHORT(sOidx, 
sizeof(szListBuff)), 

MPFROMP (szListBuff)); 


pszCountry = strtok(szhistBurt, "\t") ; 

pezCapital =strtok (NULL, "A1t"}); 

WinSetDlgItemText (hwndDlg, ID_ENTRY1, 
pszCapital): 

WinSetDlgItemText (hwndDlg, ID_ENTRY2, ""); 

WinSetDlgItemText (hwndDlg, ID_ENTRY3, 
pszCountry) ; 

break; 


default: 
break; 
} 
break; 
} 


break; 


case WM_COMMAND: 
Switch (SHORT1FROMMP (mp1) ) 
{ 
case ID_DESELECT: 

WinSendDlgItemMsg (hwndDlg, ID_SLISTBOX, 
LM _SELECTITEM, MPFROMSHORT(sIdx), 
(MPARAM) FALSE) ; 

WinSendDlgItemMsg (hwndDlg, ID_OLISTBOX, 
LM_SELECTITEM, MPFROMSHORT(sOidx) , 
(MPARAM) FALSE) ; 

WinEnablewWindow (WinWindowFromID(hwndDlg, 

ID_DELETE) , FALSE) ; 

WinSetDlgItemText (hwndDlg, ID_ENTRY1, ""); 


Figure 5.15. Listboxes: C source file. Continues. 
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WinSetDlgItemText (hwndDlg, ID_ENTRY2, ""); 
WinSetDlgitemText (hwndDlg, ID_ENTRY3, ""); 
return FALSE; 


case ID_DELETE: 
pDB_Data = (PDBDATA) WinSendDlgItemMsg (hwndDlg, 
ID SLISTBOX, 
LM _ QUERYITEMHANDLE, 
MPFROMSHORT (sSIdax), 0); 
DosSubFreeMem (BaseMem, PDB Data, 
sizeof (DBDATA) ) ; 
WinSendDlgItemMsg (hwndDlg, ID_SLISTBOX, 

LM _DELETEITEM, MPFROMSHORT(sIdx), 0); 
WinSetDlgItemText (hwndDlg, ID_ENTRY1, ""); 
WinSetDlgItemText (hwndDlg, ID_ENTRY2, ""); 
WinSetDlgItemText (hwndDlg, ID_ENTRY3, ""); 
WinSendDlgItemMsg(hwndDlg, ID_SLISTBOX, 

LM _SELECTITEM, MPFROMSHORT (0), (MPARAM) TRUE) ; 
return FALSE; 


case ID _PROCMULT: 
WinSendMsg (hwndDlg, WM_COMMAND, 
MPFROMSHORT (ID _DESELECT), 0); 
SMidx = (SHORT)WinSendDlgItemMsg(hwndDlg, 
ID_MLISTBOx, LM QUERYSELECTION, 
(MPARAM) LIT FIRST, 0); 
while(sMidx != LIT_NONE) 
{ 
WinSendDlgItemMsg (hwndDlg, ID_MLISTBOXx, 
LM _QUERYITEMTEXT, MPFROM2SHORT(sSMidx, 
sizeof (szCtry)), MPFROMP(szCtry) ); 


WinSetDlgItemText (hwndDlg, ID_ENTRY3, szCtry); 


/* DO NOT DO THIS IN PM PROGRAMS, */ 
/* AFFECTS PERFORMANCE SEVERELY */ 


DosSleep(1000) ; 
WinSendDlgItemMsg(hwndDlg, ID_MLISTBOX, 
LM_SELECTITEM, MPFROMSHORT(sMidx) , 

(MPARAM) FALSE) ; 


Figure 5.15. Listboxes: C source file. Continues. 
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SMidx = (SHORT)WinSendDlgItemMsg(hwndDlg, 
ID_MLISTBOX, 
LM_QUERYSELECTION, 
(MPARAM) SMidx, 0); 


} 
WinSetDlgItemText (hwndDlg, ID_ENTRY3, "Done"); 


DosBeep (500, 200); 
WinEnableWindow (WinWindowFromID(hwndDlg, 
ID_PROCMULT) , FALSE) ; 


return FALSE; 


case ID EXIT: 
DosSubUnsetMem(BaseMem) ; 
DosFreeMem(BaseMem) ; 
WinRemoveSwitchEntry (WinQuerySwitchHandle 


(hwndDile, 0) ) 4 
WinPostMsg(hwndDlg, WM_QUIT, 0, 0); 
break; 

default: 


return FALSE; 


/* Remove the dialog box */ 
WinDismissDlg(hwndDlg, TRUE) ; 


break; 


default: 
return WinDefDlgProc (hwndDlg, msg, mpl, mp2) ; 


} 
return FALSE; 


Figure 5.15. Listboxes: C source file. Concluded. 


6 
More controls 


The introduction of OS/2 version 2.0 has brought about four new controls which 
will make program development easier and, at the same time, assist in conforming 
to the common user access (CUA) architecture. They are: 


1. The slider 

This control has two uses. The first enables the user to vary the value of a particular 
object, for example frequency, volume, temperature, etc. The other, which is 
readonly, is used as an indicator, for example a progress indicator. The first 
function was previously accomplished using the scroll-bar control, which was 
not what it was intended for, and up until now, there has been no control to 
facilitate the coding of an indicator. 


2. The value set 

The value set control is like a graphical radio button, that is, the user can select 
only one choice from a set of mutually exclusive choices. For example, a common 
use here would be a colour palette. Instead of a series of radio buttons, each with a 
description, the user would be presented with a series of colour bitmaps from 
which to choose, and since no text is needed, valuable screen space is saved. 


3. The notebook 

This control looks just like a real notebook, complete with binding, tabs and a 3D 
appearance. It is used to organize related data into pages, which makes it easier for 
the user to find. Its main use in OS/2 is to present the object settings to the user, for 
example the desktop settings. 


4. The container 
The container control is just that, a container. It holds objects and allows them to 
be viewed in different ways: 


e Icon Icons with text underneath. 
e Name _ Icons with text to the right. 
e Text Plain textual list. 
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e Tree Hierarchical list. 
e Details Shows detailed information, for example, this view in Drives dis- 
plays file attributes, last modification date and other information. 


Since the container control belongs more to the object-oriented approach to pro- 
gramming, and is thus beyond the scope of this book, it will not be discussed 
further. 

There is a sample program in the next chapter, Fig. 7.7, covering all the follow- 
ing controls in this chapter and the new dialogs discussed in Chapter 7. You should 
refer to this, as well as the sample code here, while reading the following. So, let us 
take a look at the first three of these controls in more detail. 


6.1 The slider control 


Before we start creating a slider let us just define a few terms: 


e Slider shaft The area in which the slider arm moves. 

Slider arm ‘The part the user moves within the shaft to vary the value. 

e Slider buttons ‘The slider arm can also be moved by clicking on these. They are 
positioned at one end of the shaft. 

e Tick mark These indicate the incremental values. When a slider button is 
pressed the arm moves to the next value. 

e Detent Likeatick mark but can be placed anywhere along the shaft, not just at 
incremental values. The slider arm can be positioned to a detent by clicking on 
it. 

e Ribbon strip As the slider is moved the shaft is filled with a different colour 
between the home position, or base value, and the slider arm. 


Now that we know the various components that go to make up a slider, let us 
create a couple. Assume we have an application that controls the filling of a large 
tank. Obviously, we need some means whereby we can control the flow of liquid 
into the tank, and at the same time observe the state of the tank. This is an ideal 
situation in which to use the slider, two of them in fact: one for the user to control 
the flow and the other, read only, to display the status, see Fig. 6.1. 

Let us assume that the maximum flow rate is 100 gallons/second and the tank 
volume is 3000 gallons. These numbers were chosen just to keep it simple and 
make it possible to fill the tank in 30 seconds only. 

Let us look at the control slider first. Before we can create any slider we need to 
fill a slider control data structure: 


typedef struct _SLDCDATA 
{ 


ULONG cbSize; /* Control block size * f 
USHORT usScalelIncrements; /* Number of divisions on scale a 
USHORT usScalelSpacing; /* Space in pels between increments */ 
USHORT usScale2Increments; /* Number of divisions on scale a J 
USHORT usScale2Spacing; /* Space in pels between increments */ 


} SLDCDATA ; 
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Tank Volume 





Figure 6.1. Controlling the rate of flow using a slider. 


This structure defines the scale information and we specify here whether we want 
one or both scales. Scale 1 is drawn above a horizontal slider and to the right of a 
vertical slider. Scale 2 is drawn below a horizontal slider and to the left of a vertical 
slider. In our example we use scale 1 for the controller and scale 2 for the monitor. 
Now, our flow rate can vary from 0 to 100, and so if we set our incremental value to 
10 this gives us a usScalelIncrements value of 11; do not forget to allow for 
the zero. The next thing to define is the spacing; 40 pels/increment have been 
allowed, giving us a slider shaft of 400 pels. It is worth mentioning here that this 
has been assumed to run on a high-resolution screen, rather than overcomplicat- 
ing the program to size itself according to window size or screen resolution. If 
you are using a VGA screen then you may want to change this value. However, 
it does fit on a VGA screen. Since we are only using one scale we set the final 
two variables in the structure to zero. 

We now need to define the style for our control slider. The list of available styles 
is Shown in Table 6.1. We will use a horizontal slider, complete with ribbon strip, 
buttons on the left and the shaft positioned at the bottom of the slider window. We 
therefore need to use the styles: 
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SLS_ HORIZONTAL | SLS_BOTTOM | SLS_BUTTONSLEFT | 
SLS_RIBBONSTRIP | SLS_OWNERDRAW 


Table 6.1. Slider control styles 


Style 


SLS_HORIZONTAL 
SLS_VERTICAL 
SLS_CENTER 
SLS_BOTTOM 
SLo _ TOP 

SLS_LEFT 

SLS_ RIGHT 
SLS_BUTTONSBOTTOM 
SLS_BUTTONSTOP 
SLS_BUTTONSLEFT 
SLS_BUTTONSRIGHT 
SLS_HOMEBOTTOM 
SLS_HOME'TOP 
SLS_HOMELEFT 
SLS_HOMERIGHT 
SLS_PRIMARYSCALE1 
SLS_PRIMARYSCALE2 
SLS_OWNERDRAW 
SLS_READONLY 


Description 


Horizontal slider 

Vertical slider 

Centralize the shaft in the slider window 

Place the shaft at the bottom of the slider window (horizontal) 
Place the shaft at the top of the slider window (horizontal) 
Place the shaft to the left of the slider window (vertical) 
Place the shaft to the right of the slider window (vertical) 
Add buttons to the bottom of the shaft (vertical) 

Add buttons to the top of the shaft (vertical) 

Add buttons to the left of the shaft (horizontal) 

Add buttons to the right of the shaft (horizontal) 

Set the home position at the bottom of the shaft 

Set the home position at the top of the shaft 

Set the home position at the left of the shaft 

Set the home position at the right of the shaft 

Use scale 1 as the primary scale 

Use scale 2 as the primary scale 

Ownerdraw for the ribbon strip, shaft, arm and background 
Read-only slider 


SLS_SNAPTOINCREMENT 
SLS_RIBBONSTRIP 


Snap the slider arm to the nearest increment 
Provide a ribbon strip 


We have made it ownerdraw because when the slider window 1s painted it uses the 
default slider background colour, which is probably different from your back- 
ground colour. So to make it blend in with our own colour scheme we can either 
create the slider ownerdraw and paint the background ourselves with our own 
background colour, CLR_BACKGROUND, or use WinSetPresParanm to set it. 
Whenever any part of the slider needs to be drawn, we receive a WM_DRAWITEM 
message with mp2 pointing to an OWNERITEM structure, just as we did for the 
ownerdraw listbox. The field idItem tells us which part needs to be drawn, so 
if it is the background we draw it, otherwise we pass it on to Presentation Manager 
for drawing: 


POWNERITEM pOwner; 


case WM DRAWITEM: 
pOwner = (POWNERITEM) mp2; 
if (pOwner->idItem == SDA_BACKGROUND) 


{ 
WinFillRect (pOwner->hps, &pPpOwner->rclitem, 
CLR BACKGROUND) ; 
return (MRESULT) TRUE; 
} 


return (MRESULT) FALSE; 
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We can now create our slider window and change its font if required using 
WinSetPresParam. The next thing to do is ‘dress’ it, that is, add any tick 
marks, detents, text or change the slider dimensions. For our control slider we 
use detents at each 10 gallon/second interval from 10 to 90 inclusively, and just 
add the home and maximum values as text. We also change the slider dimensions 
to make it much larger than the default. However, before we look at the code for 
this, look at the messages and their attributes that we can expect to use with this 


new control (Tables 6.2—6.4). 


Table 6.2. Slider control messages and notification codes 


Message 


SLM_ADDDETENT 
SLM_QUERYDETENTPOS 
oLM. QUERYSCALETERT 
SLM_QUERYSLIDERINFO 
SLM_ QUERYTICKPOS 
oLM_QUERYTICKSIZE 
SLM_REMOVEDETENT 
SLM_SETSCALETEXT 
SLM_SETSLIDERINFO 
SLM_SETTICKSIZE 


SLN_CHANGE 
SLN_SLIDERTRACK 
SLN_SETFOCUS 
SLN_KILLFOCUS 


Description 


Add a detent 

Query the position of a detent 
Query the text at a tick number 
Query the slider information 
Query the position of a tick 
Query the size of a tick 
Remove a detent 

Set the text above a tick 

Set the slider parameters 

Set the size of a tick 


Slider position has changed 

Slider has been dragged by the user 
Slider is gaining the focus 

Slider is losing the focus 


Table 6.3. Slider control message attributes 


Attribute 
SMA _INCREMENTVALUE 
SMA _RANGEVALUE 


SMA_SETALLTICKS 
SMA_SHAFTDIMENSIONS 


SMA_SHAFTPOSITION 


SMA_SLIDERARMDIMENSIONS 
SMA_SLIDERARMPOSITION 


Description 


Use increment values for slider arm positioning 

Used in conjunction with SMA_SLIDERARMPOSITION 
Use pels for slider arm positioning 

Used in conjunction with SMA_SLIDERARMPOSITION 
Set all tick marks to the specified size 

Sets the height of a horizontal, or width of a vertical, 
slider shaft 

Sets the coordinates of the lower-left corner of the shaft in the 
slider window 

Sets the height and width of the slider arm 

Sets the slider arm position 


Table 6.4. Ownerdraw flag definitions 


Definition 


SDA_BACKGROUND 
SDA_RIBBONSTRIP 
SDA_SLIDERARM 
SDA_SLIDERSHAFT 


Description 


Background about to be drawn 
Ribbon strip about to be drawn 
Slider arm about to be drawn 
Slider shaft about to be drawn 
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Using all this information we can create our actual slider: 


HWND CreateSlider (HWND hwnd) 


{ 
SLDCDATA sldcData; 


ULONG ulSliderStyle; 

HWND hSlider; 

USHORT be. 

CHAR szText [5], 
szFont | 15]: 


sldcData.cbSize = s1ze0f (SLDCDATA): 
/* 0 -> 100 Gallons/Second */ 
sldcData.usScalelIncrements = 11; 


sldcData.usScalelSpacing = 40; 
sldcData.usScale2Increment = 0; 
sldcData.usScale2Spacing ae OE 


ulSliderStyle = SLS_HORIZONTAL | SLS_BOTTOM | 
SLS BUTTONSLEFT | SLS RIBBONSTRIP | 
SLS_OWNERDRAW; 
hSlider = WinCreateWindow (hwnd, WC_SLIDER, "", 
ulSliderStyle, 
30; 100, 500, 100, 
hwnd, HWND_TOP, ID SLIDER, 
S&sldcData, 0); 
strepy (sezFront, "l4.Tms Rm") ; 
WinSetPresParam(hSlider, PP_FONTNAMESIZE, 
Si Zeo0r (szFont), ezFont) + 
Lor {Ll =]40+ 1 <= 360; 14+=40) 
WinSendMsg(hSlider, SLM_ADDDETENT, MPFROMSHORT (1), 0); 
WinSendMsg (hSlider, SLM_SETSLIDERINFO, 
MPFROM2 SHORT (SMA SHAFTDIMENSIONS, 0), 
(MPARAM) 50); 
WinSendMsg (hSlider, SLM_SETSLIDERINFO, 
MPFROM2 SHORT (SMA SLIDERARMDIMENSIONS, 0), 
MPFROM2SHORT (25,60) ); 
strepy (szText, "0O"); 
WinSendMsg (hSlider, SLM_SETSCALETEXT, MPFROMSHORT (0), 
SZ Text) s 
strocpy (szText, "LOO"): 
WinSendMsg (hSlider, SLM_SETSCALETEXT, 
MPFROMSHORT (sldcData.usScaleliIncrements - 1), szText); 
return hSlider; 


More controls 145 


We now have our finished slider, and all that needs to be done is show it, since it 
was created invisible: 


WinShowWindow(hSlider, TRUE) ; 


Now that we have drawn our control slider, we need to look at the monitor. 
Because we do not want the user interacting with this one, we make it read only. 
Again, we make it ownerdraw, but this time, as well as ensuring that the back- 
ground matches the user’s background colour, we also trap the drawing of the rib- 
bon strip so that as long as the tank contents remain below 2500 gallons the strip is 
coloured green, but once this is exceeded it changes to red, conveying a visible 
warning. For this slider, which is vertical, we use scale 2, that is, the left-hand 
scale, and add tick marks, each with its own value: 


HWND CreateMonitor (HWND hwnd) 


{ 
SLDCDATA sldcData; 


HWND hMonitor; 

ULONG ulSliderStyle; 

USHORT I? 

CHAR szText [5], 
Bzront [15] > 


sldcData.cbSize = sizeof (SLDCDATA) : 
sldcData.usScaleliIncrements = 0; 
sldcData.usScalelSpacing sis 
/* 0 => 3000 Gallons (500/increment) */ 
sldcData.usScale2Increments = 7; 
sldcData.usScale2Spacing = 50s 
ulSliderStyle = SLS VERTICAL | SLS READONLY 
SLS_RIBBONSTRIP | SLS_OWNERDRAW | 
SLS PRIMARYSCALE2; 
hMonitor = WinCreateWindow(hwnd, WC_SLIDER, "", 
ulSliderStyle, 
550; 50, 150, 420, 
hwnd, HWND_TOP, ID MONITOR, 
&sldcData, 0); 
strepy (szront, "14.Tms Rmn"}- 
WinSetPresParam(hMonitor, PP_FONTNAMESIZE, 
Sizeot (szFont), szFont} ; 
WinSendMsg (hMonitor, SLM _SETSLIDERINFO, 
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MPFROM2SHORT (SMA SHAFTDIMENSIONS, 0), 
(MPARAM) 20); 
for (I =0; I <= sldcData.usScale2Increments; I++) 
f 
toa (L*500, ezText,; 10) ; 
WinSendMsg(hMonitor, SLM _SETSCALETEXT, MPFROMSHORT (TI), 
szText ) ; 
WinSendMsg(hMonitor, SLM _SETTICKSIZE, 
MPFROMZSHORT (1, 8), QO}; 
} 


return hMonitor; 


Now that our sliders have been created, we need to be able to detect when the 
user has made a change to the control slider, thus altering the flow rate. This is 
done quite simply by checking the WM_CONTROL message for notification codes 
of SLN_CHANGE and SLN_SLIDERTRACK for our slider ID. The new slider posi- 
tion is obtained from mp2; it is then a matter of simple arithmetic to convert this 
figure to our real flow rate: 


case WM_CONTROL: 
switch(SHORTIFROMMP (mp1) ) 
{ 
case ID_SLIDER: 
Switch (SHORT2FROMMP (mp1) ) 
{ 
case SLN_CHANGE: 
case SLN_ SLIDERTRACK: 
lNewPos = LONGFROMMP (mp2) ; 
/* 40 pels represent 10 gallons/sec */ 
1FlowRate = lNewPos/4; 
_ltoa(lFlowRate, szFlowRate, 10); 
WinSetWindowText (hFlowRate, szFlowRate) ; 
break; 
default: 
break; 
} 
break; 
} 


break; 


Finally, we need to update the monitor with the new value. We do this by start- 
ing a one-second timer and in the processing of the WM_TIMER message we update 


More controls 147 
the tank’s capacity and convert it back to pels and update the slider arm: 


case WM_TIMER: 
1Volume+= 1FlowRate; 


1f (1Volume > 2500) /* Sound warning */ 
DosBeep(100,100) ; 


1£ (lVolume >= 3000) /* Empty tank Ft 
1Volume = 0; 


lNewPos = 1Volume/10; 

WinSendMsg (hMonitor, SLM SETSLIDERINFO, 
MPFROM2SHORT (SMA SLIDERARMPOSITION, 
SMA RANGEVALUE), (MPARAM) lNewPos) ; 

break; 


6.1.1 The user’s view of a slider 


To complete this section let us just take a look at how the user can operate the 
slider. The most obvious method is to select the slider arm with the mouse pointer 
and drag it to the relevant value. It can also be moved by clicking on the slider 
buttons, when the arm will move by increments in either direction according to 
which button is pressed. Clicking in the shaft area with mouse button 1 also has 
the same effect, whereas if mouse button 2 is used to click in this area the arm 
moves to that position. Last, but by no means least, if the slider has detents 
then by clicking on one the arm will move to that point. 

As you can see, this control has great potential, and its programming simplicity 
is likely to ensure that it will be very widely used. 


6.2 The value set control 


Like the slider, before we can create a value set we must set up a control structure. 
This is called the value set control data structure: 


typedef struct _VSCDATA 
{ 


ULONG cbS1ize; f/* Control block size * } 

USHORT usRowCount; /* Number of rows wr 

USHORT usColumnCount; /* Number of columns a 
} VSCDATA; 


This structure defines the number of rows and columns to use for a control. In our 
sample program we create two value sets, one displaying colour indices and the 
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other displaying system bitmaps, see Fig. 6.2. For the colour value set we use two 
rows of eight columns to represent the 16 colours, and the bitmap value set has just 
two rows of two columns. Other items in a value set can be icons, text, or colour 
values and can be defined by using any of the styles shown in Table 6.5. Our sample 





Figure 6.2. Two value sets. 


Table 6.5. Value set control styles 


Style Description 

VS_BITMAP Default all items to bitmaps 

VS_ICON Default all items to icons 

VS_TEXT Default all items to text strings 
VS_RGB Default all items to colour information 
VS_COLORINDEX Default all items to colour indices 
VS_BORDER Add a border around the control 
VS_ITEMBORDER Add a border around each item 
VS_SCALEBITMAPS Scale bitmaps to cell size 


VS_RIGHTTOLEFT Support right to left ordering 
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program uses a value set to represent the 16 colour indices, so we use the styles: 


VS_COLORINDEX | VS_BORDER | VS_ITEMBORDER 


To improve the appearance of the items and the control we also use the border 


styles. Having decided on the style of our value set we simply load it by sending it 
VM_SETITEM messages: 


HWND CreateVSet (HWND hwnd) 


{ 


VSCDATA vscData; 


HWND hvSet; 

ULONG ulVSetStyle, 
wulCcolids; 

USHORT uSRow, 
uscol, 


vecData.cbSize = sizeor (VSCDATA) : 
vscData.usRowCount = 2s 
vecData.usColumnCount = 6; 


ulvVSetStyle = VS_COLORINDEX | VS_BORDER | VS_ITEMBORDER; 


hVSet = WinCreateWindow(hwnd, WC_VALUESET, "", 
ulVSetStyle, 
30, 20, 300, 100, 
hwnd, HWND_TOP, ID_VSET, 
&vscData, 0); 
ulCGolidxn = 0; 


for (usRow = 1; usRow <= vscData.usRowCount; usRow++) 
for {usCol = Le usCol <= yscData .usColumnCount; usCaol4++) 
{ 
WinSendMsg(hvVSet, VM_SETITEM, 
MPFROM2SHORT (uSRow, uSCol), 
MPFROMLONG (ulColIdx++) ); 
} 
return hVSet; 


Now let us take a quick look at our bitmap value set. All we do here is load four 


system bitmaps, the up, down, left and right arrows, and use the style 
VS_SCALEBITMAPS so that they are scaled to the cell size when displayed. To 
load the bitmaps we use WinGetSysBitmap starting with the up arrow, that 
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is, SBMP_SBUPARROW and store their handles in the array ahBitmap: 


HWND CreateVSet2 (HWND hwnd) 
{ 
VSCDATA vscData; 
HWND hVvSet; 
HBITMAP hbm, 
ahBitmap [3]; 


ULONG ulVSetStyle; 
USHORT uSRow, 
usCol, 
hig 


vscData.cbSize = sizeof (VSCDATA) ; 
vscData.usRowCount = 22 
vecData.usColumnCount = 2; 


ulvSetStyle = VS_BITMAP | VS_BORDER | VS_ITEMBORDER | 
VS_SCALEBITMAPS; | 


hVvSet = WinCreateWindow (hwnd, WC_VALUESET, "", 
ulVSetStyle, 
30, 200, 300, 150, 
hwnd, HWND_TOP, ID _VSET2Z, 
&ysecData, QO); 
ror (l=; LT e= 32 L++) 
{ 
hbm = WinGetSysBitmap (HWND_DESKTOP, I+SBMP_SBUPARROW) ; 
ahBitmap[I] = hbm; 
} 
Tos 
for (usSRow = 1; usRow <= vscData.usSRowCount; uSRow++) 
for {usCol = 1° usCol <= vecDatae.usColumnCount: usCol++) 
{ 
WinSendMsg(hvVSet, VM_SETITEM, 
MPFROM2SHORT (usSRow, uSCol), 
MPFROMLONG (ahBitmap[I++4+])); 
} 


return hVSet; 


Before we continue to process a value set selection, let us look at the messages 
and attributes that have been defined for this control (Tables 6.6 and 6.7). 

When the user selects an item from a value set, a WM_CONTROL message is sent 
with a notification code of VN SELECT. We can then send the control a 
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Table 6.6. Value set messages and notification codes 


Message Description 

VM_QUERY ITEM Query the item at a location 
VM_QUERYITEMATTR Query the attributes of an item 
VM_QUERYMETRICS Query the metrics of a control 
VM_QUERY SELECTEDITEM Query the selected item 
VM_SELECTITEM Set the selected item 
VM_SETCOLORMASK Set the colour mask of an item 
VM_SETITEM Set the item at a location 
VM_SETITEMATTR Set the item attributes 
VM_SETMETRICS Set the metrics of a control 
VN_DRAGLEAVE Drag operation has left the control 
VN_DRAGOVER Drag operation is over the item 
VN_DROP Drop has occurred on an item 
VN_DROPHELP Request help for drop 

VN_ENTER Item has been entered by the user 
VN_HELP Help has been requested by the user 
VN_INITDRAG Drag has been initiated on an item 
VN_KILLFOCUS Value set is losing the focus 
VN_SELECT Item has been selected by the user 
VN_SETFOCUS Value set is gaining the focus 


Table 6.7. Value set item attributes 


Attribute Description 

VIA_BITMAP Item contains a bitmap 

VIA_ICON Item contains an icon 

VIA_TEXT Item contains a text string 

VIA_RGB Item contains a colour value 
VIA_COLORINDEX Item contains a colour index 
VIA_OWNERDRAW Item is ownerdraw 

VIA_DISABLED Item is unselectable 

VIA_DRAGGABLE Item can be the source of a drag operation 
VIA_DROPONABLE Item can be the target of a drop operation 


VM_QUERYSELECTEDITEM message to obtain the selected item; this returns the 
row and column numbers as two SHORT values. In the case of the colour value 
set, we can then send it a VM_QUERYITEM message to get the value of the selected 
item. Using this we force a repaint to change the client window background colour: 


case WM CONTROL: 
Switch (SHORTILFROMMP (mp1) ) 
{ 
case ID _VSET: 
Switch (SHORT2FROMMP (mp1) ) 
{ 
case VN_SELECT: 
ulSeliItem = (ULONG) WinSendMsg(hVSet, 
VE OUERYSELECTEDITEM, Q, G)>+ 
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ulWinCol = (ULONG)WinSendMsg(hVSet, 
VM_QUERYITEM, MPFROMLONG 
(ulSelItem), 0); 

WinInvalidateRect (hwnd, NULL, FALSE) ; 


break; 
default: 
break; 
} 
} 
break; 


Now, in the case of the other value set, we do not need to obtain a specific value, 
we just need to know what bitmap was selected. As was said earlier, 
VM_QUERYSELECTEDITEM returns two SHORTs, the first is the row number 
and the other is the column, so to obtain the selected bitmap number, assuming 
number | is the top-left bitmap we can use the following: 


usBitmap = vscData.usColumnCount * 
(SHORTILFROMMR (ulSelItem) - 1) + SHORT2FROMMR (ulSeliItem) ; 


that is: 


Number of columns * (Selected Row - 1) + Selected Column 


6.3 The notebook control 


As was mentioned earlier, this control is used to group together related data. It is 
an extremely powerful control with many uses, and is very flexible, both in appear- 
ance and use. Certainly, its main use by OS/2 is to present to the user the enormous 
range of settings for each workplace object. It can be used by the application devel- 
oper to group together several related dialog boxes and avoid any necessity for 
scrolling dialog boxes (something which they were never designed for), or multiple 
dialogs. Another use could be for holding static data, such as the OS/2 glossary. 
Before we start building a notebook, let us define a few terms and look at the 
various styles, messages and attributes available. The notebook control is just 
like a real notebook, complete with a binding and 3D appearance. This appear- 
ance is achieved by partial showing of the back pages, and, assuming the binding 
is on the left, the default, you will see these to the right and bottom, intersecting at 
the bottom right where there are two pushbuttons for turning the pages. There are 
also tabs available, major and minor. The major tabs are always immediately 
opposite the binding, so the positioning of these tabs dictate the orientation of 
the notebook. At right angles to the major tabs are the minor tabs and, as 
expected, a major tab indicates a subject and the minor tab a subset of that 
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subject. The minor tabs only show when their associated major tab has been 
selected to make it the top page, that is, the page in view. Finally, you can add a 
status line on each page which can be used to display any relevant information. 

Tables 6.8—6.10 show the styles, messages, notification codes and attributes 
associated with this control. 


Table 6.8. Notebook control styles 


Style 


BKS_ BACK PAGESBL 
BKS_BACK PAGESBR 
BKS_BACKPAGESTL 
BKS_BACK PAGESTR 
BKS_MAJORTABBOTTOM 
BKS_MAJORTABLEFT 
BKS_MAJORTABRIGHT 
BKS_MAJORTABTOP 
BKS_POLYGONTABS 
BKS_ROUNDEDTABS 
BKS_SOLIDBIND 
BKS_SPIRALBIND 
BKS_SQUARETABS 
BKS_STATUSTEATCENTER 
BKS_STATUSTEATLEFT 
BKS_STATUSTEXTRIGHT 
BKS_TABTEXTCENTER 
BKS_TABTEXTLEFT 
BKS_TABTEXTRIGHT 


Description 


Back page intersection at the bottom left 
Back page intersection at the bottom right 
Back page intersection at the top left 
Back page intersection at the top right 
Major tabs positioned at the bottom 
Major tabs positioned to the left 

Major tabs positioned to the right 
Major tabs positioned at the top 
Polygon-edged tabs 

Round-edged tabs 

Solid binding 

Spiral binding 

Square-edged tabs 

Centralize status text 

Left justify status text 

Right justify status text 

Centralize tab text 

Left justify tab text 

Right justify tab text 


Table 6.9. Notebook control messages and notification codes 


Message 


BKM_ CALC PAGERECT 
BKM_DELETEPAGE 
BKM_INSERTPAGE 
BKM_INVALIDATETABS 
BKM_QUERYPAGECOUNT 
BKM_QUERYPAGEDATA 

BKM _QUERYPAGEID 
BKM_QUERYPAGESTYLE 
BKM_QUERY PAGEWINDOWHWND 
BKM QUERYSTATUSLINETEXT 
BKM_QUERYTABBITMAP 

BKM _QUERYTABTEXT 
BKM_SETDIMENSIONS 
BKM_SETNOTEBOOKCOLORS 
BKM_SETPAGEDATA 
BKM_SETPAGEWINDOWHWND 
BKM_SETSTATUSLINETEXT 
BKM_SETTABBITMAP 
BKM_SETTABTEXT 
BKM_TURNTOPAGE 


BRN HEP 

BKN_NEWPAGESIZE 
BKN_PAGEDELETED 
BKN_PAGESELECTED 


Description 


Calculate page rectangle 
Delete a page 

Insert a page 

Invalidate the tab area 
Query the number of pages 
Query the page user data 
Query the page identifier 
Query the page style 

Query the page window handle 
Query the status line text 
Query the tab bitmap handle 
Query the tab text pointer 
Set the tab dimensions 

Set the notebook colours 

Set the page user data 

Set the page window handle 
Set the status line text 

Set the tab bitmap 

Set the tab text 

Turn to page 


Help requested 

Page size has changed 

Page has been deleted 

New page has been selected 
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Table 6.10. Notebook control message attributes 


Attribute Description 

BKA_ALL Delete all pages 

BKA_SINGLE Delete a single page 

BKA_TAB Delete a tab section 

BKA_LAST Insert or query the last page 
BKA_FIRST Insert or query the first page 
BKA_NEXT Insert or query after the current page 
BKA_PREV Insert or query before the current page 
BKA_TOP Query the top page 


BKA_MAJORTAB 
BKA_MINORTAB 
BKA_PAGEBUTTON 
BKA_STATUSTEXTON 


Major tab 

Minor tab 

Page turning button 
Permit status area text 


BKA_MAJOR Insert a major tab 

BKA_MINOR Insert a minor tab 
BKA_AUTOPAGESIZE Automatically size the page window 
BKA_END Query to the end of the book 

BKA, TEXT Tab contains text data 


BKA_BITMAP 
BKA_BACKGROUNDPAGECOLOR INDEX 
BKA_BACKGROUNDPAGECOLOR 
BKA_BACKGROUNDMAJORCOLORINDEX 
BKA_BACKGROUNDMAJORCOLOR 
BKA_BACKGROUNDMINORCOLORINDEX 
BKA_BACKGROUNDMINORCOLOR 
BKA_FOREGROUNDMAJ ORCOLORINDEX 
BKA_FOREGROUNDMAJORCOLOR 
BKA_FOREGROUNDMINORCOLORINDEX 
BKA_FOREGROUNDMINORCOLOR 


Tab contains a bitmap 

Page background colour 

Page background colour (RGB) 
Major tab background colour 

Major tab background colour (RGB) 
Minor tab background colour 

Minor tab background colour (RGB) 
Major tab text colour 

Major tab text colour (RGB) 

Minor tab text colour 

Minor tab text colour (RGB) 


In order to illustrate how to create a notebook we will build a very simple 
address book (Fig. 6.3 (a) and (b)). To do this we read a text file of names and 
addresses, and for each initial letter of the surname we insert a major tab page, 
and for all the names starting with this letter we add minor tab pages. Now, since 
this is an exercise in creating a notebook only, no error-checking on input is 
included, and so the format is assumed correct, that is, of the form: 


Name,House Number and Street, Town,County 
For example: 


Fred Smith,48 High Street, Anytown,Somecounty 


Now, because we want to be able to move the notebook around and change its size, 
a standard window has been created into which the notebook is drawn. It is during 
the creation of this window that the notebook is created. Because we will use a 
spiral binding and major tabs (rounded) on the right with the back pages intersect- 
ing at the bottom right, we need the creation flags: 


BKS_BACKPAGESBR | BKS_MAJORTABRIGHT | BKS_ROUNDEDTABS | 
BKS_SPIRALBIND 
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Figure 6.3. (a) Using a notebook control as an address book. 


We also need larger tabs, especially for the minor tabs, since we will use these tabs 
to display the first name of each person. To do this we send the control a 
BKM_SETDIMENSIONS message for each tab: 


WinSendMsg (hNotebook, BKM _SETDIMENSIONS, 
MPFROM2SHORT (50, 25), 
MPFROMSHORT (BKA_MAJORTAB) ) ; 

WinSendMsg (hNotebook, BKM SETDIMENSIONS, 
MPFROMZSHORT (75, 25), 
MPFROMSHORT (BKA_ MINORTAB) ) ; 


We are now ready to insert pages, but before we can do this we need to decide how 
to associate the page window with our application data. We can either use a dialog 
box or create our own window, just like any other Presentation Manager window, 
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Figure 6.3. (b) Address page. 


and associate that. However, for this example we will use a dialog box. In fact, we 
will use two dialog boxes, one for the major tab pages and the other for the actual 
names and addresses. Now each page has its own handle, but you can associate a 
handle with more than one page if desired, and, in fact, we will do just that here. 
Each major page will contain a listbox displaying all the names, this is the dialog 
box DLG_LISTPAGE and contains nothing but the listbox. So, each time a major 
tab is selected you will see the listbox. Another dialog box, DLG_PAGE, containing 
four read-only entry fields is associated with each page, and so each time we insert 
a page we must load another copy of the dialog box to associate with it. To associ- 
ate a window handle with a page we send it a BKM_SETPAGEWINDOWHWND message. 
Now let us look at the pseudo-code necessary for loading the notebook: 


Open the data file 
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Load the major dialog box 
While we still have records inthe data file 
{ 
Parse input line (first name, last name, street, 
town and county) 
Tf initial letter of last name has changed 
{ 
Insert major tab page 
Set major tab text 
Associate dialog box window handle with major page 
} 
Insert minor tab page 
Set minor tab text 
Load the minor dialog box 
Fill dialog box with data 
Associate dialog box window handle with minor page 
Insert name into listbox in major dialog box 
} 
Close file 
Show notebook 


This translates to the following code: 


bInit = “0? 
ezinicit | = *40"s 
if {( (Names = fopen("NAMES.TAT", "r"}) == NUL) 


DosBeep(100, 200) ; 
return (HWND) NULL; 


} 


hListPage = WinLoadDlg(hNotebook, hNotebook, 
0, 0, DLG_LISTPAGE, 0); 


while (fgets (szNameAddrBuf, 80, Names) ) 
{ 
strcpy (szName, strtok(szNameAddrBuf, ",")); 
strcepy (ezstreet, strtok(NULbh, ","})2 
strepy (szTown, strtok (NULL, ",") }3 
Sstrepy (szCounty, Sstroeok(NULh, *,")iz 
/* Extract first and last names */ 


( 
( 
( 
( 


strcpy (szFirstName, strtok(szName, "")); 
strcpy (szLastName, strtok(NULL, "")); 
1f (bInit !=szLastName[0]) /* Change of surname initial */ 
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bInit = szLastName[0]; 
ulPageID = (ULONG) WinSendMsg (hNotebook, 
BKM_INSERTPAGE, O, 
MPFROM2 SHORT 
(BKA_ MAJOR | 
BKA_AUTOPAGESIZE | 
BKA_STATUSTEXTON, 
BKA_ LAST) ) ; 
SzIinit [O} = bint: 
WinSendMsg (hNotebook, BKM SETTABTEXT, 
MPFROMP(ulPagelID), szInit); 
WinSendMsg (hNotebook, BKM _SETSTATUSLINETEXT, 
MPFROMP(ulPagelD), 
MPFROMP ("Address Book") ) ; 


WinSendMsg (hNotebook, BKM_SETPAGEWINDOWHWND, 
MPFROMP (ulPageID) , MPFROMHWND (hListPage) ); 

i 

ulPagelID = (ULONG) WinSendMsg (hNotebook, 
BKM_INSERTPAGE, 0, 
MPFROM2 SHORT (BKA_ MINOR 
BKA_ AUTOPAGESIZE, 
BKA LAST) ); 


strcepy (szMinorTab, szFirstName) ; 
WinSendMsg (hNotebook, BKM SETTABTEXT, 
MPFROMP (ulPageID), szMinorTab) ; 


hPage = WinLoadDlg(hNotebook, hNotebook, 0, 0, 
DLG_PAGE, 0); 


sprintf(szName, "%s %s", szFirstName, szLastName) ; 
LY (szCounty [strlen (szCounty) <1] == ’\n") 
szCounty |[strlen(szCounty)-L] = "\0" > 


WinSetDlgItemText (hPage, ID NAME, szName) ; 
WinSetDlgItemText (hPage, ID_ADDR1, szStreet); 
WinSetDlgItemText (hPage, ID_ADDR2, szTown) ; 
WinSetDlgItemText (hPage, ID_ADDR3, szCounty) ; 
WinSendMsg (hNotebook, BKM SETPAGEWINDOWHWND, 
MPFROMP (ulPageID) , MPFROMHWND (hPage) ) ; 
sprintf(szName, "%s, %s", szLastName, szFirstName) ; 
WinSendDlgItemMsg(hListPage, ID _LISTBOX, LM_INSERTITEM, 
MPFROMSHORT (LIT_END), 


MPFROMP(szName) ) ; 
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} 


Fclose(Names) ; 
WinShowWindow (hNotebook, TRUE) ; 


Now we have loaded our notebook, let us look at how we process it. If you 
remember, we were going to make the notebook sizeable and movable, so we 
created a window in which to place it. This window’s procedure then, traps the 
WM_SIZE message so that every time it is sized we can obtain its coordinates 
and redraw the notebook accordingly: 


RECT KEL > 
static HWND hNotebook; 
case WM_SIZE: 
WinQueryWindowRect (hwnd, &rcl); 
WinMapWindowPoints (hwnd, WinQueryWindow (hwnd, 
QOW_PARENT), (PPOINTL)&rcl, 2); 
WinSetWindowPos (hNotebook, 0, rcl.xLeft, rcl.yBottom, 
rcel.xRight-20, rcl.yTop-20, SWP_SIZE | 
SWP_MOVE) ; 
break; 


The only other thing we need to do is to ensure that, whenever the user presses a 
major tab, the items will be repositioned in the listbox such that the first item of the 
selected initial is displayed at the top of the listbox. Now, whenever a new page is 
selected, either by pressing a major or minor tab, a WMW_CONTROL message is sent 
with a notification code of BKN_PAGESELECTED. We need to trap this and extract 
the tab text, and if this contains only one byte then we assume it is the major tab 
that has been requested and send that letter to the listbox control. This causes the 
next item starting with that letter to be selected, and we can then send the listbox an 
LM_SETTOPINDEX message to place that entry at the top. To avoid unnecessary 
flicker in the listbox, we call WinEnableWindowUpdate to switch off drawing to 
the listbox until we are ready to redisplay it, when we call WinShowWindow. 

When a new page is selected, the second parameter in the WM_CONTROL message 
contains a pointer toa PAGESELECTNOTIFY structure, as follows, which contains 
information about the selected page: 


typedef struct _PAGESELECTNOTIFY 
{ 


HWND hwndBook; /* Notebook window handle a 
ULONG ulPageldCur; /* Current top page identifier */ 
ULONG ulPageldNew; /* New top page identifier i 


} PAGESELECTNOTIFY; 
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The variable we are interested in is the new top-page identifier, since we need this 
to extract the tab text for that page. To do this we send the notebook a 
BKM_QUERYTABTEXT message specifying our page ID, and in return we obtain 
a pointer to a BOOKTEXT structure, as follows: 


typedef struct _BOOKTEXT 
{ 
PSZ pString: /* Text string buffer a 
USHORT textLen; /* Length of the text string */ 
} BOOKTEXT 


but before using this structure we must first initialize the pointer pString. Wecan 
then send the BKM_QUERYTABTEXT message: 


PAGESELECTNOTIFY *pSelectedPage; 
BOOKTEXT BookText; 


HWND hPage; 

CHAR szTabText [20], 
*TabText ; 

SHOR? siltem; 


USHORT usTabTextLength; 
static HWND hNotebook; 
case WM CONTROL: 
Switch(SHORTIFROMMP (mp1) ) 
{ 
case ID NOTEBOOK: 
Switch (SHORT2FROMMP (mp1) ) 
{ 
case BKN_ PAGESELECTED: 
pSelectedPage = (PAGESELECTNOTIFY *)mp2; 
TabText = szTabText; 
BookText.pString = TabText: 
usTabTextLength = (USHORT) WinSendMsg (hNotebook, 
BKM _QUERYTABTEXT, 
MPFROMLONG 
(pSelectedPage-> 
ulPagelIdNew) , 
&BookText) ; 


1f (usTabTextLength == 1) 
/* Initial letter only in tab? */ 
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hPage = (HWND) WinSendMsg (hNotebook, 
BKM _ QUERY PAGEWINDOWHWND, 
MPFROMLONG (pSelectedPage 
->ulPageldNew), 0); 
WinEnableWindowUpdate (WinWindowFrom1D(hPage, 
ID_LISTBOX) , FALSE) ; 
WinSendDlgitemMsg (hPage, ID_LISTBOX, WM_CHAR, 
MPFROMSH2CH (KC_CHAR, O, QO), 
MPFROM2 SHORT ( (USHORT) 
szTabText [0], 0));3 
sItem = (SHORT)WinSendDlgItemMsg (hPage, 
ID_LISTBOX, LM QUBRYSELECTION, 0, 0); 
WinSendDlgIitemMsg (hPage, ID_LISTBOX, 
LM SETTOPINDEX, MPFROMSHORT(sitem), 0); 
WinShowWindow (WinWindowFromID (hPage, 
LD LISTBOx), TRUE) ; 
} 


break; 


default: 
break; 


} 


break; 


} 


break; 


All these controls have been combined into a single program along with the new 
dialogs covered in the next chapter (see Fig. 7.7). 


7 
Standard dialogs 


In Chapter 6 we briefly looked at some of the new controls introduced in version 
2.0. In addition to these, two new dialogs were added, which will undoubtedly ease 
and standardize the tasks of file and font handling. They are: 


1. The file dialog 

This dialog has probably been written many times over in varying ways, until now. 
At last OS/2 has provided a standard way for the user to select, open and save files, 
making the programmer’s job much easier. 


2. The font dialog 

Similarly, this dialog provides a standard approach to selecting fonts. It contains a 
sample area so that the user can see exactly what is being selected before making 
the final choice. 


Let us look at these in turn. 


7.1 The file dialog 


With very little code on your part, this dialog lets you select one or more files to 
open from any drive or directory on your system. In addition, a filename can be 
entered directly—useful if creating a new file. The dialog can be tailored to limit 
which drives are to be displayed. Filenames can be filtered; for example, you 
may only want the user to see files with an extension of TXT. The dialog can 
also be implemented as a Save As... dialog. 

Implementing a basic open dialog (Fig. 7.1) is quite straightforward provided 
you follow a few simple rules: 


@ Initialize a FILEDLG structure to NULL. 

@ Set the structure length field cbSize. 

@ Decide on the type of dialog you want by setting the fl flag field using a com- 
bination of FDS_* definitions. For example, if you want a centred, file open 
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Figure 7.1 A file open dialog. 


Table 7.1 File dialog styles 


Style 


PDS_CENTER 
FDS_CUSTOM 
FDS_FILTERUNION 
FDS_HELPBUTTON 
FDS_APPLYBUTTON 
FDS_PRELOAD_VOLINFO 
FDS_MODELESS 
FDS_INCLUDE_EAS 
FDS_OPEN_DIALOG 
FDS_SAVEAS_DIALOG 
FDS_MULTIPLESEL 
FDS_ENABLEFILELB 
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Description 


Centre the dialog 

Use custom user template 
Use union of filters 

Display Help button 
Display Apply button 
Preload volume information 
Make dialog modeless 
Always load EA information 
Select Open dialog 

Select SaveAs dialog 
Enable multiple selection 
Enable SaveAs Listbox 


dialog then use FDS_OPEN_DIALOG and FDS_CENTER. AIl the styles are 


shown in Table 7.1. 


You can then optionally set other fields in the structure such as the dialog title, 
text for the OK pushbutton, an initial drive and directory. For convenience, the 
FILEDLG structure follows. When you exit from the dialog this structure is 
updated with your choice, the selected path and filename being returned in the 
field szFullFile. You can then call DosOpen and proceed. You can also tailor 
the dialog by providing your own dialog procedure and template, see the fields 
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pfnDlgProc and hMod in the following structure: 


typedef struct _FILEDLG 


{ 
ULONG 
ULONG 
ULONG 
LONG 
LONG 
PSZ 
PSZ 
PF NWP 


PSZ 


PAPSZ 


PS 


PAPSZ 


HMODULE 


CHAR 


PAPSZ 


ULONG 
USHORT 
SHORT 


SHORT 


SHORT 
} FILEDLG; 


cbS1ize; 

thy 

ulUser; 
lReturn; 
ISRC: 
peszTitle; 
pszOKButton; 
pindDigProc; 


pez liype: 


papszITypeList; 


psziDrive; 


papszIDriveList; 


hMod; 


/* 
/* 
/* 
/* 
/* 
/* 
j{* 
f* 
/* 
/* 
/* 
/* 
{es 
f® 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
{[* 


SszFullFile[CCHMAXPATH]; /* 


papszFQFilename; 


ulFOQFCount; 
usDigia: 
x; 


Yr 


SEAType; 


/* 
/* 
{* 
/* 
f* 
/* 
/* 
j* 
/* 
/* 
/* 
/* 
jf * 


Structure size 

FDS_* flags 

User defined 

Return code from dialog 

System return code 

Dialog title 

OK button text 

Entry point to custom 
dialog procedure 

Pointer to string 
containing initial 
EFA type filter 

Pointer to table of 
pointers that point 
to null-terminated 
Type strings 

Pointer to string 
containing initial 
drive 

Pointer to table of 
pointers that point 
to null-terminated 
Drive strings 

Custom file dialog 
template 

Initial or selected 
fully qualified path 
and file 

Pointer to table of 
pointers that point 
to null-terminated 
FOQFname strings 

Number of files selected 

Custom dialog ID 

X coordinate of the 
dialog 

Y coordinate of the 
dialog 

Selected file’s EA Type 


at | 
=f 
at i 
ae 
at J 
* 
sad 
* / 
ae 
* f 
oy 
a 3 
sat 5 
ae 5 
a i 
bat 
*/ 
ae 
a 
kd 
*f 
my 
a 5 
ar 
aa 
ar 
ar 
ar 
es 
~y 
oy 
ay 
a 
a 
at 
* f 
ar 
=f 
ae 
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Let us see what this translates to when we code it: 


VOID OpenFile(HWND hwnd) 


{ 


FILEDLG OpenD1lg; 
CHAR szText [CCHMAX PATH] ; 


memset (&OpenDlg, 0, sizeof (FILEDLG) ); 

/* Initialize FILEDLG to NULL */ 
OpenDlg.cbSize = sizeof(FILEDLG); /* Set size ae 
OpenDlg.fl = FDS_OPEN_ DIALOG | FDS_CENTER; 

/* Open dialog and centred ae 
OpenDlg.pszTitle = "Sample Open Dialog"; 


/* Dialog title aed 
OpenDlg.pszOKButton = "Open"; /* OK button text a 
OpenDlg.pszIDrive = "D:"; /* Start with the D drive al 
/* Display dialog =f 


WinFileDlg(HWND_DESKTOP, hwnd, &OpenD1g) ; 
if (OpenDlg.1lReturn == DID_OK) /* User pressed "Open" = 
{ 

sprintf(szText, "Selected File:\n%s", OpenDlg.szFullFile) ; 


} 


else /* User cancelled wi 
sprintf(szText, "Open Dialog Cancelled"); 


WinMessageBox (HWND_DESKTOP, hwnd, szText, OpenDlg.pszTitle, 0, 
MB_ INFORMATION | MB_OK | MB_ MOVEABLE) ; 
LecuriL; 


} 


As you can see, a little effort goes a long way. Now let us look at the font dialog. 


7.2 The font dialog 


This dialog gives you a standard method whereby you can select a font, its style 
and its size. Whenever a font is selected, a sample is immediately displayed in a 
preview window (Fig. 7.2). Programming it is very similar to the file dialog, with 
just a few simple rules to follow: 


Initialize a FONTDLG structure to NULL. 

Set the structure length field cbSize. 

Assign the hpsScreen and/or the hpsPrinter fields. 

Pass a pointer to a buffer into which the selected font will be returned. 
Assign the font buffer’s length. 


You can optionally pass the dialog title, change the preview text, abcdABCD by 


default, and generally customize it as you can with the file dialog. Like the file 
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Figure 7.2. A font change dialog. 


dialog, you can also provide your own dialog procedure and template. The font 
dialog styles are listed in Table 7.2. 


Table 7.2. Font dialog styles 








Style Description 

FNTS_CENTER entre the dialog 
FNTS_CUSTOM se custom template 
FNTS_OWNERDRAWPREVIEW plication to draw the preview window 
FNTS_HELPBUTTON isplay Help button 
FNTS_APPLYBUTTON isplay Apply button 
FNTS_RESETBUTTON isplay Reset button 
FNTS_MODELESS Make dialog modeless 
FNTS_INITFROMFATTRS nitialize from font attributes 
FNTS_BITMAPONLY itmap font only 
FNTS_VECTORONLY ector font only 
FNTS_FIXEDWIDTHONLY Monospaced only 
FNTS_PROPORTIONALONLY roportional font only 
FNTS_NOSYNTHESIZEDFONTS Do not synthesize fonts 





The FONTDLG structure is as follows: 


typedef struct _FONTDLG 


ULONG cbhSize; /* Structure size ai | 
HPS psscreen; /* Screen presentation space sa 
HPS hpsPrinter; /* Printer presentation space vf 
PSZ pszTitle; /* Dialog title alt | 
PSZ pszPreview; /* Preview text a 
PSZ pszPtSizeList; /* Application provided size list */ 


PF NWP 
PSZ 
FIXED 
ULONG 
ULONG 
ULONG 
ULONG 
ULONG 
ULONG 
LONG 
LONG 
ULONG 
LONG 
LONG 
LONG 
LONG 
LONG 
HMODULE 
FATTRS 
SHORT 
USHORT 
USHORT 
SHORT 
SHORT 
USHORT 
USHORT 
USHORT 
} FONTDLG; 


So to generate a basic font dialog all we need to do is the following: 
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pfnDlgProc; 
pszFamilyname ; 
fxPointSize; 

ak 

flFlags; 

itype; 
flTypeMask; 
flStyle; 
flStyleMask; 
clrFore; 
clrBack; 
ulUser; 
LRSturns 

LSRC: 
lEmHeight; 
1XHeight; 
lExternalLeading; 
hMod; 

fAttrs; 
sNominalPointSize; 
usWeight; 
usWidth; 

x; 

yi; 

usDigid; 
usFamilyBufLen; 
usReserved; 


VOID ChgFont (HWND hwnd) 


{ 


FONTDLG FontD1lg; 

CHAR szFamilyName[FACESIZE], 
szText [CCHMAX PATH ] ; 

HPS hps; 

szFamilyName[0] = '\0’; 


hps = WinGetPS (hwnd) ; 
memset (&FontDlg, 0, sizeof (FONTDLG) ); 


FontDlg 
FontDlg 
FontDlg 
FontDlg 
FontDlg 


tl = FNTS CENTER? 
.cbSize = sizeof (FONTDLG) ; 
.hpsScreen = hps; 


/* Dialog subclass procedure 


/* 
f* 
{* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


/* Nominal point size of the font 
Boldness of the font 


/* 
7 * 
/* 
/* 
/* 
/* 
/* 


Family name of font 


Selected point size 


FNTS.* tlags 
FNTF_* state flags 


Font type option bits 


Font types mask 


Selected style bits 


Style bits mask 


Selected foreground colour 
Selected background colour 


Application use 


Return code from the dialog 


System return code 


Em height of the current font 
X height of the current font 
External leading of the font 
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Module to load custom template*/ 


Font attribute structure 


Width of the font 


X coordinate of the dialog 
Y coordinate of the dialog 
ID of a custom dialog template 


Buffer length 
Reserved 


/* Initialize buffer 
/* Get presentation space 


/* Initialize FONTDLG to NULL 


/* Centre dialog 
/* Set size 


/* Set presentation space 
.uSFamilyBufLen = FACESIZE;/* Set buffer length 

.pszFamilyname = szFamilyName; 
/* Pass pointer to buffer 


a 
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FontDlg.pszTitle = "Sample Font Dialog"; 


/* Dialog title gk 
FontDlg.clrFore = CLR_RED; /* Preview foreground colour */ 
FontDlg.clrBack = CLR_YELLOW; /* Preview background colour */ 
FontDlg.pszPreview = "aBcDeFgHiJkLmNoPqRsTuVwxyZ"; 

/* Preview text iar 
WinFontDlg (HWND_DESKTOP, hwnd, &FontDlg); /*Display dialog 7 
WinReleasePS (hwnd) ; /* Return presentation space */ 
if (FontDlg.1lReturn == DID_OK) /* User pressed OK a 


{ 

sprintf(szText, "Selected Font: \n%u.%s", 
FIXEDINT(FontDlg.fxPointSize), 
FontDlg.fAttrs.szFacename) ; 

} 

else /* User cancelled a 
sprintf(szText, "Font Dialog Cancelled") ; 

WinMessageBox (HWND_DESKTOP, hwnd, szText, FontDlg.pszTitle, 0, 

MB INFORMATION | MB_OK | MB MOVEABLE) ; 
FreLurn; 


7 Sample program 


This program demonstrates the use of sliders, value sets, notebooks, the file dialog 
and the font dialog. 

The sliders, value sets and dialogs use the main window as their client areas, 
whereas the notebook uses a separate child window in which to be displayed. 
This allows it to be moved and sized. The main window has three menu options, 
Controls, Dialogs and Exit. The slider option simulates a simple control 
system depicting two sliders, one to control the water flow into a tank and the other 
to monitor the tank level. The value set option displays two controls, one for 
colour, which alters the client window colour, and the other showing four arrow 
bitmaps. Selecting any of these causes a warning beep to be sounded. 

The notebook option displays a basic address book, the names and addresses 
being read from a file called NAMES.TXT. If you press mouse button 2, the note- 
book style is changed to a solid binding with the major tabs placed at the bottom. 
Pressing it again toggles the style back to the original. The two dialogs do not 
open the selected file or change the font, but when they are dismissed a message 
box pops up displaying your selection, as shown in Fig.7.3 for the font dialog. 

All the controls and dialogs are created invisibly when the program starts. 
Selecting any one from the menu will show it and hide the previous choice. 

The following listings show the program’s header file, Fig. 7.4, resource file, Fig. 
7.5, dialog template, Fig. 7.6, and C source file, Fig. 7.7. 
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Figure 7.3. New font selected. 


#define DLG_PAGE 100 
#define ID_NAME 102 
#define ID_ADDR1 104 
#define ID_ADDR2 105 
#define ID_ADDR3 106 
#define ID_LISTBOX 107 
#define DLG_LISTPAGE 200 
#define ID_SLIDER 256 
#define ID_MAINWND Pasw| 
#define ID_TITLE 258 
#define ID_ICON A 59 
#define ID_TEXT1 260 
#define ID_TEXT2 4 oi 
#define ID_FLOWRATE 262 
#define ID_MONITOR 263 
#define ID_VSET 264 
#define ID_VSET2 265 
#define ID_NOTECLIENT 266 
#define ID_NOTEBOOK 267 
#define MI_EXIT 300 
#define MI_RESUME 301 
#define MI_SLIDER 302 
#define MI_VALUESET 303 
#define MI_NOTEBOOK 304 
#define MI_OPEN 305 
#define MI_FONT 306 


Figure 7.4. Version 2.0 controls and dialogs: header file. 
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#include <os2.h> 


#include "newctrls.h" 


STRINGTABLE PRELOAD 


BEGIN 
LD _ TITLE, 
END 


ICON 


ACCELTABLE 
BEGIN 

VK_FP3, 
END 


MENU 
BEGIN 


"New Controls for OS/2 Version 2.0" 


ID _MAINWND newctrls.ico 


ID_MATNWND 


MI_ EXIT, VIRTUALKEY 


ID_MATNWND PRELOAD 


SUBMENU "~Controls", 


BEGIN 


MENUITEM "~Slider", 
MENUITEM "~Value Set", 
MENUITEM "~Notebook", 


END 


SUBMENU "~Dialogs", 


BEGIN 


MENUITEM "~Open File", 
MENUITEM "~Change Font", 


END 


SUBMENU "Erxit", 


BEGIN 


MENUITEM "~Exit Program\tF3", 
MENULTEM "~Resume Program", 


END 
END 


rcinclude newctrls.dlg 


MI_SLIDER, 
MI_VALUESET, 
MI_NOTEBOOK, 


MI_OPEN, 
MI _FONT;, 


Mi EAT, 
MI_RESUME, 


Fig. 7.5. Version 2.0 controls and dialogs: resource file. 


MIS _TEAT 
MIS TEXT 
MIS_TEXT 


MIS_TEXT 
MIS_TEXT 


Mis TEXT 
MiSs TEAT 


Standard dialogs 171 


DLGINCLUDE 1 "NEWCTRLS.H" 


DLGTEMPLATE DLG_PAGE LOADONCALL MOVEABLE DISCARDABLE 


BEGIN 
DIALOG "", DLG PAGE, los, 59, 151, 96, NOT FS _DLGBORDER | 
WS_VISIBLE 
BEGIN 
LTERAT "Name", 1O1l, 10, 7B, 326, 8 
ENTRYFIELD vo.) [D_NAME, 62, 78, 74, 8, ES. MARGIN | 
ES READONLY | NOT WS_TABSTOP 
LTEXT vVAddress"; 102, 10, OL, 43, 2 
ENTRYFIELD ne ID_ADDR1, 62, 59, 74, 8, ES MARGIN | 
ES READONLY | NOT WS_TABSTOP 
ENTRYFIELD "™, LD_ADDR2, 62, 39, 74, 8, ES_MARGIN | 
ES_READONLY | NOT WS_TABSTOP 
ENTRYFIELD "", ID_ADDR3, 62, 16, 74, 8, ES_MARGIN | 
ES_ READONLY | NOT WS_TABSTOP 
END 
END 


DLGTEMPLATE DLG_LISTPAGE LOADONCALL MOVEABLE DISCARDABLE 


BEGIN 

DIALOG "", DLG LISTPAGE, 168, 59, 151, 96, NOT FS_DLGBORDER | 

WS_VISIBLE 
BEGIN 
LISTBOX ID LISTBOxX, 15, 11, 119, 76, LS MORZSCROLL: | 
NOT WS_TABSTOP 

END 

END 


Figure 7.6. Version 2.0 controls and dialogs: dialog template. 


#define INCL WINWINDOWMGR 
#define INCL WINFRAMEMGR 
#define INCL WINSWITCHLIST 
#define INCL_WINSYS 
#define INCL WINSTATICS 
#define INCL WINSTDSLIDER 
#define INCL WINSTDVALSET 
#define INCL WINSTDBOOK 
#define INCL WINSTDFILE 
#define INCL WINSTDFONT 
#define INCL WINMENUS 
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#define INCL WINTIMER 

#define INCL_WINPOINTERS 
#define INCL _WINDIALOGS 
#define INCL WINLISTBOXES 
#define INCL _WININPUT 

#define INCL_GPICONTROL 
#define UM_CLEAR WM_USER 


#include <os2.h> 
#include <string.h> 
#include <stdlib.h> 
#include <stdio.h> 
#include "newctrls.h" 


MRESULT EXPENTRY MainWndProc (HWND, ULONG, MPARAM, MPARAM) ; 
MRESULT EXPENTRY NbookWndProc (HWND, ULONG, MPARAM, MPARAM) ; 


HWND CreateSlider (HWND) ; 
HWND CreateMonitor (HWND) ; 
HWND CreateVSet (HWND) ; 
HWND CreateVSet2 (HWND) ; 
HWND CreateNotebook (HWND) ; 
VOID OpenFile(HWND) ; 

VOID ChgFont (HWND) ; 

FILE *Names; 


[RRRRERERERKEKEREKKEEKKEKEKKRERKREKEKEKEKKKKEKEKEKEKEKKEEKKEKKRKREKREKKEEEE / 
INT main(VOID) 


HAB hab; 

HMQ hmq; 

HWND hwndFrame, 
hwndClient; 

OMSG Qmsg; 

ULONG flFrameFlags; 

CHAR szTitie(seo]; 

SWCNTRL PomEntry; 

LONG 1X_Left, 
L¥_BOt; 
lHeight, 
1Width, 
1ScrHeight, 
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LSerwidth: 


[RKKKKKEKKKEKKKKEKKKEKKEKKEKKKKKKEKKEKKKKKKEKKK KKK KERKKEKKKEKKKEKKEKKKEKKKE KK / 


hab = WinInitialize (0); 

hmg = WinCreateMsgQueue (hab, 0); 

WinRegisterClass(hab, "NewCtrls", MainWndProc, CS_SIZEREDRAW | 
CS CLIPCHILDREN, 0) ; 

WinRegisterClass(hab, "Notebook", NbookWndProc, CS_SIZEREDRAW, 


O) 3 
WinLoadString (hab, (HMODULE) NULL, ID_TITLE, sizeof(szTitle), 
szTitle); 
flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF_MENU | 
FCF _MINMAX | FCF_SIZEBORDER | FCF_ACCELTABLE | 
PCE L£CON; 


hwndFrame = WinCreateStdwindow(HWND_DESKTOP, 0, &flFrameFlags, 
"‘NewCtris", szTitile, 0, 
(HMODULE) NULL, ID _MAINWND, 
&hwndClient) ; 

1ScrWidth = WinQuerySysValue (HWND_DESKTOP, SV_CXSCREEN) ; 

1ScrHeight = WinQuerySysValue (HWND_DESKTOP, SV_CYSCREEN) ; 

IWiGdeh = Lberiviidtny4* 2s 

lHeight = 1ScrHeight /4 * 3; 


LX Left = (1SerWidth - lWidth) / 2; 

1Y_Bot = (1ScrHeight - lHeight) / 2; 
/* posed 8 ag i ee es ho ia peer OS * / 
f* Start un foreground */ 
/* I ar ae te a be Ne sok a a we ew he * / 


WinSetWindowPos (hwndFrame, (HWND)NULL, 1X Left, 1Y_ Bot, 1Width, 
lHeight, SWP_SIZE | SWP_MOVE | SWP_SHOW 
SWP_ACTIVATE) ; 


PgomEntry .hwnd = hwndFrame; fm a ef ae i oe xf 
PgmEntry .hwndIcon = (HWND) NULL; /* Add towindow list */ 
PomEntry.hprog = (HPROGRAM) NULL; /*------------------- oe 5 
PgmEntry.idProcess = (PID) NULL: 

PgmEntry.idSession = (ULONG) NULL; 

Pomkntry .uchVisibility = SWL VISIBLE; 

PomEntry.fbJump = SWL_JUMPABLE; 


strcpy (PgmEntry.szSwtitle, szTitle) ; 


WinAddSwitchEntry (&PgmEntry) ; 


while (WinGetMsg (hab, &gqmsg, (HWND) NULL, 0, 0)) 
WinDispatchMsg(hab, &qmsqg) ; 
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WinRemoveSwitchEntry (WinQuerySwitchHandle(hwndFrame, 0)); 
WinDestroyWindow (hwndFrame) ; 

WinDestroyMsgQueue (hmq) ; 

WinTerminate (hab) ; 

return 0; 


[RRRREKRERKEREKRKEEKEREKREREERKREREEKRERERE KEKE REREKEEREKREKEEEKKEREEKE | 


MRESULT EXPENTRY MainWndProc (HWND hwnd, ULONG msg, MPARAM mpl, 
MPARAM mp2 ) 


Static HWND hFlowRate, 
hFlowText, 
hTankText, 
hSlider, 
hMonitor, 
hVSet, 
hvSet2, 
hNoteFrame, 
hNoteClient; 

static LONG l1FlowRate, 
1Volume, 
1WinCol = CLR_BACKGROUND; 

HPS hps; 

RECTL rel; 

LONG lNewPos; 

ULONG ulSeliItem, 
flFrameFlags; 

USHORT usBitmap; 

CHAR szFlowRate[5], 
ezront [15] 3 

POWNERITEM pOwner; 
Switch (msg) 
{ 


case WM_CREATE: 
flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF_SIZEBORDER; 


hSlider = CreateSlider (hwnd); 
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hMonitor = CreateMonitor (hwnd) ; 
hvSet = CreateVSet (hwnd); 
hvSet2 = CreateVSet2 (hwnd) ; 


hNoteFrame = WinCreateStdwindow(hwnd, 0, &flFrameFlags, 
"Notebook", 
"Sample Notebook", 
0, (HMODULE) NULL, 
ID_NOTECLIENT, 
&hNoteClient) ; 


hTankText = WinCreat eWindow (hwnd, WC_STATIC, 
"Tank Volume", 
S5_ TEXT, 550, 450, 150, 40, 
hwnd, HWND_TOP, ID_TEXT1, 0, 
O15 
hFlowText = WinCreat eWindow(hwnd, WC_STATIC, 
"Current Flow Rate (Gallons/Second) =>", 
SS_TEXT, 100, 10, 330, 40, hwnd, HWND_TOP, 
LD. TEXTS, O, UU}? 
hFlowRate = WinCreateWindow(hwnd, WC_STATIC, "0", 
SS TEAT, 440, 10, 40, 40, 
hwnd, HWND_TOP, ID FLOWRATE, 
RD, Oye 
strcepy (szFont, "12. Tins Rin"); 
WinSetPresParam(hFlowText, PP_FONTNAMESIZE, 
sizeof(szFont), szFont) ; 
WinSetPresParam(hTankText, PP_FONTNAMESIZE, 


sizeof (szFont),szFont); 
WinSetPresParam(hFlowRate, PP _FONTNAMESIZE, 


Bi zeot (ezFont) , szFont) : 
break; 


case WM_PAINT: 
hps = WinBeginPaint (hwnd, (HPS)NULL, &rcl); 
WinQueryWindowRect (hps, &rcl); 
WinFillRect (hps, &rcl, lWinCol) ; 
WinEndPaint (hps) ; 
break; 


case WM_TIMER: 
1Volume+= 1FlowRate; 
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1f (lVolume > 2500) /* Sound warning */ 
DosBeep (100,100) ; 


if (1Volume >= 3000) /* Empty tank * 
1Volume = 0; 


lNewPos = 1Volume/10; 
WinSendMsg(hMonitor, SLM_SETSLIDERINFO, 
MPFROM2 SHORT (SMA _SLIDERARMPOSITION, 


SMA_RANGEVALUE), (MPARAM) lNewPos) ; 
break; 


case WM_DRAWITEM: 
pOwner = (POWNERITEM) mp2; 
1f (pOwner->idItem == SDA BACKGROUND) 
{ 
WinFillRect (pOwner->hps, &pOwner->rclItem, 1lWinCol) ; 
return (MRESULT) TRUE; 
i 
1f (pOwner->idItem == SDA_RIBBONSTRIP && 
SHORTIFROMMP (mp1) == ID_MONITOR) 


if (lVolume <= 2500) 
WinFillRect (pOwner->hps, &pOwner->rclItem, CLR _GREEN) ; 
else 
WinFillRect (pOwner->hps, &pOwner->rcliItem, CLR_RED) ; 
return (MRESULT) TRUE; 
} 
return (MRESULT) FALSE; 


case WM_CONTROL: 
Switch (SHORT1FROMMP (mp1) ) 
{ 


case ID _ SLIDER: 

Switch (SHORT2 FROMMP (mp1) ) 

{ 

case SLN_CHANGE: 

case SLN_SLIDERTRACK: 
lNewPos = LONGFROMMP (mp2) ; 
1FlowRate = 1NewPos/4; 

/* 40 pels represent 10 gallons/sec */ 

_ltoa(lFlowRate, szFlowRate, 10); 
WinSetWindowText (hFlowRate, szFlowRate) ; 
break; 


default: 
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break; 


} 


break; 


case ID VSETs 
Switch (SHORT2 FROMMP (mp1) ) 
{ 
case VN_SELECT: 
ulSelItem = (ULONG) WinSendMsg(hvVSet, 
VM_QUEBRYSELECTEDITEM, 0, 0); 
1WinCol = (ULONG) WinSendMsg(hvSet, VM_QUERYITEM, 
MPFROMLONG (ulSelItem), 0); 

WinSetPresParam(hFlowRate, PP_BACKGROUNDCOLORINDEX, 
sizeof(lWinCol), &lWinCol1) ; 

WinSetPresParam(hFlowText, PP_BACKGROUNDCOLORINDEX, 
sizeof(1lWinCol), &lWinCo1) ; 

WinSetPresParam(hTankText, PP_BACKGROUNDCOLORINDEX, 
sizeof (lWinCol), &lWinCol); 

WinSetPresParam(hVSet, PP_BACKGROUNDCOLORINDEX, 
sizeof(lWinCol), &lWinCol1) ; 

WinSetPresParam(hVSet2, PP_BACKGROUNDCOLORINDEX, 
sizeof (lWinCol), &lWinCol); 

WinInvalidateRect (hwnd, NULL, FALSE) ; 

break; 


default: 
break; 
} 
break; 
case ID _VSET2: 
Switch (SHORT2 FROMMP (mp1) ) 
{ 
case VN_SELECT: 
ulSeliItem = (ULONG) WinSendMsg(hvSet2, 
VM_OQUERYSELECTEDITEM, 0, Q); 
usBitmap = 2 * (SHORTIFROMMR (ulSelItem) - 1) + 
SHORT2FROMMR (ulSeliItem) ; 
DosBeep(1000*usBitmap, 100); 
break; 


default: 
break; 


} 


break; 
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} 


break; 


case UM_CLEAR: 
WinStopTimer (WinQueryAnchorBlock (hwnd), hwnd, 1) ; 
WinShowWindow (hSlider, FALSE) ; 
WinShowWindow (hMonitor, FALSE) ; 
WinShowWindow (hFlowText, FALSE) ; 
WinShowWindow (hTankText, FALSE) ; 
( ) 
( 
( 


/ 


WinShowWindow (hFlowRate, FALSE 
WinShowWindow (hVSet, FALSE) ; 
WinShowWindow (hvVSet2, FALSE) ; 
WinShowWindow (hNoteFrame, FALSE) ; 
WiniInvalidateRect (hwnd, NULL, FALSE) ; 
break; 
case WM_COMMAND: 
Switch (SHORTIFROMMP (mp1) ) 
{ 
case MI_SLIDER: 
1Volume = 0; 
WinSetWindowText (WinQueryWindow (hwnd, QW_PARENT) , 
"Sample Slider Control") ; 
WinSendMsg (hwnd, UM_CLEAR, 0, 0); 
/* 1 second timer */ 
WinStartTimer (WinQueryAnchorBlock (hwnd) , hwnd, 1, 1000); 
WinShowWindow (hSlider, TRUE) ; 
WinShowWindow (hMonitor, TRUE) ; 
WinShowwWindow (hFlowText, TRUE) ; 
WinShowWindow (hTankText, TRUE) ; 
WinShowWindow (hFlowRate, TRUE) 
break; 
case MI_VALUESET: 
WinSetWindowText (WinQueryWindow (hwnd, QW_PARENT) , 
"Sample Value Set Control"); 
WinSendMsg (hwnd, UM_CLEAR, 0, 0); 
WinShowWindow (hVSet, TRUE) ; 
WinShowWindow (hVSet2, TRUE); 
break; 


i 


case MI_NOTEBOOK: 
WinSetWindowText (WinQueryWindow (hwnd, QW_PARENT) , 
"Sample Notebook Control") ; 
WinSendMsg (hwnd, UM_CLEAR, 0, 0); 
WinSetWindowPos (hNoteFrame, 0, 50, 50, 400, 400, 
SWP_SIZE | SWP_MOVE) ; 
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WinShowWindow (hNoteFrame, TRUE) ; 
break; 


case MI_OPEN: 
WinSendMsg (hwnd, UM_CLEAR, 0, 0); 
OpenFile (hwnd) ; 
break; 


case MI_FONT: 
WinSendMsg (hwnd, UM_CLEAR, 0, 0); 
ChgFont (hwnd) ; 
break; 


case MI_EXIT: 
WinPostMsg (hwnd, WM_QUIT, 0, 0); 
break; 


default: 
break; 


} 


break; 


case WM_ERASEBACKGROUND: 
return (MRESULT) TRUE; 
} 


return WinDefWindowProc (hwnd, msg, mpl, mp2); 


} 


[RRKKKEEKRKEKEEKEKEEKKEKEERKREKRKKEKREREKEKRKEREERKEKEKEKKEKEKEKEKEKEEEKEKEKEKKKK / 


HWND CreateSlider (HWND hwnd) 


{ 
SLDCDATA sldcData; 


HWND hSlider; 

ULONG ulSliderStyle; 

USHORT 1 

CHAR szText [5], 
szFont [15]; 


sldcData.cbSize = sizeof (SLDCDATA) ; 
sldcData.usScalelIncrements=11; /* 0 ->100 Gallons/Second */ 
sldcData.usScalelSpacing = 40; 
sldcData.usScale2Increments = 0; 
sldcData.usScale2Spacing = Os 
ulSliderStyle = SLS_ HORIZONTAL | SLS_BOTTOM | SLS_BUTTONSLEFT | 

SLS_RIBBONSTRIP | SLS_OWNERDRAW; 
hSlider = WinCreateWindow(hwnd, WC_SLIDER, "", ulSliderStyle, 

30, 100, 500, 100, hwnd, HWND_TOP, 
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} 


ID_SLIDER,&sldcData, 0); 
strcpy (szFont, "14.Tms Rmn"); 
WinSetPresParam(hSlider, PP _FONTNAMESIZE, sizeof (szFont), 
SzZFont) ; 
for (1 =403 T <= 360? T+=40) 
WinSendMsg(hSlider, SLM_ADDDETENT, MPFROMSHORT (I), 0); 
WinSendMsg(hSlider, SLM_SETSLIDERINFO, 
MPFROM2 SHORT (SMA _SHAFTDIMENSIONS, 0), (MPARAM) 50) ; 
WinSendMsg(hSlider, SLM_SETSLIDERINFO, 
MPFROM2 SHORT (SMA_SLIDERARMDIMENSIONS, 0), 
MPFROM2 SHORT (25,60) ); 
strepy (szText, "0")+; 
WinSendMsg (hSlider, SLM_SETSCALETEXT, MPFROMSHORT (0), szText) ; 
Strepy (e2Text, "100"}; 
WinSendMsg(hSlider, SLM_SETSCALETEXT, MPFROMSHORT 
(sldcData.usScaleliIncrements - 1), szText); 
return hSlider; 


[RRRRKERKERKERKER KEKE KERKERKKEKEKKREKRKERKKEKEKKEKKKEKEKKKKEKEKKEKKKEKKEKEKEKE / 


HWND CreateMonitor (HWND hwnd) 


{ 


SLDCDATA sldcData; 


HWND hMonitor; 

ULONG ulSliderstyle; 

USHORT i; 

CHAR szText [5], 
szFont [15] ; 


sldcData.cbSize = sizeof (SLDCDATA) ; 
sldcData.usScalelIncrements = 0; 
sldcData.usScalelSpacing = 0; 
sldcData.usScale2Increments = 7; 
/* 0 -> 3000 Gallons (500/increment) */ 

sldcData.usScale2Spacing = 50; 
ulSliderStyle = SLS_VERTICAL | SLS_ READONLY | SLS_RIBBONSTRIP | 

SLS_OWNERDRAW | SLS_PRIMARYSCALE2 ; 


hMonitor = WinCreateWindow (hwnd, WC_SLIDER, "", ulSliderStyle, 
550, 50, 150, 420, 
hwnd, HWND_TOP, ID MONITOR, &sldcData, 
O)% 


strepy (ezFPont, “14.'Tims Rim"); 
WinSetPresParam(hMonitor, PP _FONTNAMESIZE, sizeof(szFont), 


szFont) : 
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WinSendMsg(hMonitor, SLM_SETSLIDERINFO, MPFROM2SHORT 
(SMA _SHAFTDIMENSIONS, 0), (MPARAM) 20) ; 

for (I =0; I <= sldcData.usScale2Increments; I++) 
{ 

ltoatl*500, szText, 10); 

WinSendMsg(hMonitor, SLM_SETSCALETEXT, MPFROMSHORT (TI), 

szText) ; 

WinSendMsg(hMonitor, SLM_SETTICKSIZE, MPFROM2SHORT(I, 8), 0); 
} 
return hMonitor; 


} 


[RRKKRKKKKEKKEKEKEKKKKERKEKKEKKKKREKKKEKKKKEKKKKEEKKKKKKKKKKKRKREKKEKKKEKKEK KE / 


HWND CreateVSet (HWND hwnd) 


{ 
VSCDATA vscData; 


HWND hvSet; 
ULONG ulVSetStyle, 
ulCcoliTdx; 
LONG lWincCol; 
USHORT usRow, 
usCol « 


vscData.cbSize = sizeof (VSCDATA) ; 
vscData.usRowCount = 2° 
vscData.usColummCount = 8; 


ulVSetStyle = VS_COLORINDEX | VS_BORDER | VS_ITEMBORDER ; 


hVSet = WinCreateWindow (hwnd, WC_VALUESET, "", ulVSetStyle, 
30, 30, 300, 100, hwnd, HWND _ TOP, 
ID_VSET, &vscData, 0); 

1WinCol = CLR_BACKGROUND; 

WinSetPresParam(hVSet, PP _BACKGROUNDCOLORINDEX, 

sizeof(lWinCol), &lWinCol1) ; 

vuICoLIGx = 0, 

for (uSRow = 1; uSRow <= vscData.uSRowCount; uSRoOw++) 

for (usCol = 1; usCol <= vscData.usColumnCount; usCol++) 

{ 

WinSendMsg(hvVSet, VM_SETITEM, MPFROM2SHORT(usRow, uSCol), 
MPFROMLONG (ul ColIdx++)); 
return hVSet; 
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[ ERR RREREREERREEKRERKRERER EERREERRERERER KERR EREREREREKE ER KEREE ER | 


HWND CreateVSet2 (HWND hwnd) 
{ 
VSCDATA vscData; 


HWND hvSet; 
HBITMAP hbm, 
ahBitmap [4]; 
ULONG ulvVSetStyle; 
LONG lWinCol; 
USHORT usRow, 
usCol, 
I; 


vscData.cbSize = sizeof (VSCDATA) ; 
vscData.usRowCount = 2; 
vscData.usColumnCount = 2; 


ulvSetStyle = VS_BITMAP | VS_BORDER | VS_ITEMBORDER | 
VS_SCALEBITMAPS; 


hvVSet = WinCreateWindow (hwnd, WC_VALUESET, "", ulVSetStyle, 30, 
200, 300, 150, hwnd, HWND_TOP, ID_VSET2, 
&vscData, 0); 


1WinCol = CLR BACKGROUND; 
WinSetPresParam(hVSet, PP _BACKGROUNDCOLORINDEX, 


sizeof(lWinCol), &lWinCol) ; 
for (1 =0: I <= 3% I++} 


{ 
hbm = WinGetSysBitmap (HWND_DESKTOP, I+SBMP_SBUPARROW) ; 
ahBitmap[I] = hbm; 


L=Qe 
for (uSRow = 1; uSRow <= vscData.uSROowCount; usSRow++) 
for (usCol = 1; usCol <= vscData.usColumnCount; usCol++) 
i 
WinSendMsg(hvVSet, VM_SETITEM, MPFROM2SHORT(uSRow, usSCol), 
MPFROMLONG (ahBitmap[1I++])); 
} 


return hvSet; 
} 


[RRRKKKKKKKKKEKKKKEKKKEKEKEKKKKEKKKKEKKEKKKEKKKEKKKKEKKKKEKKKKKEKKKEKKEKKKK EK / 


MRESULT EXPENTRY NbookWndProc (HWND hwnd, ULONG msg, MPARAM mp1, 
MPARAM mp2 ) 
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PAGESELECTNOTIFY *pSelectedPage; 
BOOKTEXT BookText; 


HWND 
CHAR 


RECTL 
SHORT 
USHORT 
static 
static 


hPage; 

szTabText [20], 
*TabText ; 

rel; 

sitem; 
usTabTextLength; 
HWND hNotebook; 
BOOL f£Vert = FALSE; 


Switch (msg) 


{ 


case WM_CREATE: 


hNotebook = CreateNotebook (hwnd) ; 


if (!'!hNotebook) 


{ 


} 


WinMessageBox (HWND_DESKTOP, hwnd, 
"Cannot find NAMES.TXT", 
"Notebook Failure", 0, 

MB_ ERROR | MB _OK | MB MOVEABLE) ; 
return (MRESULT) TRUE; 


break; 


case WM_SIZE: 
WinQueryWindowRect (hwnd, &rcl); 


WinMapWindowPoints (hwnd, WinQueryWindow (hwnd, QW_PARENT) , 
(PPOINTL) &rcl, 2); 

WinSetWindowPos (hNotebook, 0, rcl.xLeft, rcl.yBottom, 
rcl.xRight-20, rcl.yTop-20, SWP_SIZE 


break; 


SWP_MOVE) ; 


case WM_CONTROL: 
Switch (SHORT1FROMMP (mp1) ) 


{ 


case ID NOTEBOOK: 


{ 


Switch (SHORT2 FROMMP (mp1) ) 


case BKN_PAGESELECTED: 
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usTabTextLength = (USHORT) WinSendMsg (hNotebook, 
BKM QUERYTABTEXT, MPFROMLONG 
(oSelectedPage->ulPagelIdNew), 
&BookText ) ; 

if (usTabTextLength ==1) /* Initial letter only intab? */ 


hPage = (HWND) WinSendMsg (hNotebook, 
BKM _ QUERYPAGEWINDOWHWND, 
MPFROMLONG 
(pSelectedPage->ulPagelI dNew) , 
QO); 
WinEnableWwindowUpdate (WinWindowFromID(hPage, 
ID_LISTBOX) ; FALSE) ; 
WinSendDlgItemMsg(hPage, ID_LISTBOX, WM_CHAR, 
MPFPROMSH2CH (KC _ CHAR, 0, 0), 
MPFROM2 SHORT ( (USHORT) szTabText [0], 
OQ) 2% 
sItem = (SHORT) WinSendDlgItemMsg(hPage, ID_LISTBOX, 
LM QUERYSELECTION, 0, 0); 
WinSendDlgItemMsg(hPage, ID_LISTBOX, LM_SETTOPINDEX, 
MPFROMSHORT (sItem), 0); 
WinShowWindow (WinWindowFromID(hPage, ID_LISTBOX), 


TRUE) ; 
} 


break; 
default: 
break; 
} 
break; 


} 


break; 


case WM_BUTTON2DOWN: 
{ 
ULONG ulNotebookStyle; 


fVert = !£Vert; 


if {fV¥Vert} 
ulNotebookStyle = BKS_BACKPAGESBL | BKS_MAJORTABBOTTOM | 
BKS_SQUARETABS; 
else 
ulNotebookStyle = BKS_BACKPAGESBR | BKS_MAJORTABRIGHT | 
BKS_ROUNDEDTABS | BKS_SPIRALBIND; 


WinSetWindowULong (hNotebook, QWL_STYLE, ulNotebookStyle) ; 
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WinShowWindow (hNotebook, TRUE) ; 
} 


break; 


case WM_CLOSE: 
WinShowWindow (WinQueryWindow (hwnd, QW_PARENT), FALSE) ; 
return (MRESULT) FALSE; 


case WM_ERASEBACKGROUND: 
return (MRESULT) TRUE; 


} 


return WinDefWindowProc (hwnd, msg, mpl, mp2); 


} 


[ERREKEKAERKE KKEKEEEAEKEEERE EREEREKREREEEKEEEKERERRERERRREREREERERE f 


HWND CreateNotebook (HWND hwnd) 
{ 

HWND hNotebook, 
hListPage, 
hPage; 

ULONG ulNotebookStyle, 
ulPagelID; 

LONG lWinCol; 

CHAR szMinorTab[15], 
szNameAddrBuf [80], 
szFirstName[15], 
szLastName[15], 
szName[30], 
szStreet [30], 
szTown[30], 
szCounty [30], 

Sz luce [2 ie 

BYTE binit: 


if ((Names = fopen("NAMES.TXT", "r")) == NULL) 
return 0; 


ulNotebookStyle = BKS_BACKPAGESBR | BKS_MAJORTABRIGHT | 
BKS_ROUNDEDTABS | BKS_SPIRALBIND; 
hNotebook = WinCreat eWindow (hwnd, WC_NOTEBOOK, "", 
ulNotebookStyle, 0, 0, 0, 0, hwnd, 
HWND_TOP, ID NOTEBOOK, 0, 0); 
1WinCol = CLR_BACKGROUND; 
WinSetPresParam(hNotebook, PP_BACKGROUNDCOLORINDEX, 
sizeof (lWinCol), &lWinCol) ; 
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WinSendMsg (hNotebook, BKM _SETDIMENSIONS, MPFROM2SHORT (50, 25), 
MPFROMSHORT (BKA_ MAJORTAB) ) ; 

WinSendMsg (hNotebook, BKM_SETDIMENSIONS, MPFROM2SHORT (75, 25), 
MPFROMSHORT (BKA_ MINORTAB) ) ; 


Binit = *f?s 
Ssziniet Lil = *\.o"= 


hListPage = WinLoadDlg(hNotebook, HNotebook, 0, O, 
DLG_LISTPAGE, 0); 
while (fgets (szNameAddrBuf, 80, Names) ) 
{ 
strcpy(szName, strtok(szNameAddrBuf, ",")); 
strcpy(szStreet, strtok(NULL, ",")); 
Strepy (szTown, SLrcek(NULG, *,"))-3 
etrepy (szCounty, strtok (NUL, *,"))% 
/* Extract first and last names */ 
strcpy (szFirstName, strtok(szName, "")); 
strcpy (szLastName, strtok(NULL, "")); 


if (bInit != szLastName[0] ) /* Change of Surname initial */ 


bInit = szLastName[0]; 
ulPageID = (ULONG) WinSendMsg(hNotebook, BKM_INSERTPAGE, 0, 
MPFROM2 SHORT (BKA MAJOR | 
BKA_AUTOPAGESIZE | 
BKA_STATUSTEXTON, 
BKA_LAST) ); 
Sezinit( =e] =binits 
WinSendMsg (hNotebook, BKM _SETTABTEXT, 
MPFROMP (ulPageID), MPFROMP(szInit) ); 
WinSendMsg (hNotebook, BKM_SETSTATUSLINETEXT, 
MPFROMP(ulPageID), MPFROMP("Address Book") ); 


WinSendMsg (hNotebook, BKM _SETPAGEWINDOWHWND, 
MPFROMP (ulPageID) , MPFROMHWND (hListPage) ); 
} 
ulPageID = (ULONG) WinSendMsg (hNotebook, 
BKM _INSERTPAGE, O, 
MPFROM2SHORT (BKA_MINOR | 
BKA_ AUTOPAGESIZE, BKA_LAST) ); 


strcpy (szMinorTab, szFirstName) ; 
WinSendMsg (hNotebook, BKM _SETTABTEXT, MPFROMP(ulPagelID) , 
szMinorTab) ; 


hPage = WinLoadDlg (hNotebook, hNotebook, 0, 0, DLG_PAGE, 0) ; 


Figure 7.7. Version 2.0 controls and dialogs: C source file. Continues. 


Standard dialogs 


sprintf(szName, "%s $s", szFirstName, szLastName) ; 
1f (szCountylsetrilen(szCounty)=1)] =< “\n") 
szCounty [strlen(szCounty)-1)] = *\0"; 


WinSetDlgItemText (hPage, ID NAME, szName) ; 
WinSetDlgItemText (hPage, ID_ADDR1, szStreet); 
WinSetDlgItemText (hPage, ID_ADDR2, szTown) ; 
WinSetDlgItemText (hPage, ID_ADDR3, szCounty) ; 
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WinSendMsg (hNotebook, BKM _SETPAGEWINDOWHWND, MPFROMP(ulPagelID), 


MPFROMHWND (hPage) ) ; 
sprintf(szName, "%s, Ss", szLastName, szFirstName) ; 
WinSendDlgItemMsg(hListPage, ID_LISTBOX, LM_INSERTITEM, 

MPFROMSHORT (LIT_END) , MPFROMP(szName) ) ; 
} 


fclose (Names) ; 
WinShowwWindow (hNotebook, TRUE); 


return hNotebook; 


} 


[RRRERRRKRERKRKERKEREKEKRKREREKRKKREKEKEREEREKEEE KEKKKKKKKKKKKKKKKKKKKEKE / 


VOID OpenFile(HWND hwnd) 
{ 
FILEDLG OpenD1lg; 
CHAR szText [CCHMAX PATH] ; 


/* Initialize OpenDlg to NULL */ 


memset (&OpenDlg, 0, sizeof (FILEDLG) ) ; 
OpenDlg.cbSize = sizeof(FILEDLG); /* Set size 
/* Open Dialog and centred 
OpenDlg.fl = FDS_OPEN_ DIALOG | FDS_CENTER; 
/* Dialog title 
OpenDlg.pszTitle = "Sample Open Dialog"; 
OpenDlg.pszOKButton = "Open"; /* OK button text 
OpenDl¢g.psziDrive ="D:"; /* Start with the D drive 
/* Display dialog 
WinFileDlg(HWND_DESKTOP, hwnd, &OpenD1g) ; 
if (OpenDlg.1lReturn == DID_Ok) 
{ /* User pressed "Open" 
sprintf (szText, "Selected File: \n%s", OpenDlg.szFullFile) ; 
} 
else /* User cancelled 
sprintf(szText, "Open Dialog Cancelled"); 
WinMessageBox (HWND_DESKTOP, hwnd, szText, OpenDlg.pszTitle, 0, 
MB INFORMATION | MB_OK | MB MOVEABLE) ; 
1 as a | 


Figure 7.7. Version 2.0 controls and dialogs: C source file. Continues. 
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} 


[RRRKKKKKKEKKKEKKKKKKKKEKKKKKKKKKKKKKKKKK KEKKKKKKKKKKKKKKK KK KK KKK / 


VOID ChgFont (HWND hwnd) 

{ 

FONTDLG FontDlg; 

CHAR szFamilyName [FACESIZE], 
szText [CCHMAXPATH], 
szPointSize[3]; 

USHORT usPointSize; 


HPS hps; 
szFamilyName[0] = '\0’; /*initialize burrter *% 
hps = WinGetPS (hwnd) ; /*Get presentation space ij 


/* Initialize FontDlg to NULL */ 
memset (&FontDlg, 0, sizeof (FONTDLG) ) ; 


FontDlg.fl = FNTS_CENTER; /* Centre dialog i 
FontDlg.cbSize =sizeof(FONTDLG); /* Set size aay | 
FontDlg.hpsScreen = hps; /*Set presentation space lt 
FontDlg.usFamilyBufLen = FACESIZE; /*Set buffer length mi 

/*Pass pointer to buffer ae 


FontDlg.pszFamilyname = szFamilyName; 
/*Dialog title = 
FontDlg.pszTitle = "Sample Font Dialog"; 


FontDlg.clrFore = CLR_RED; /* Preview foreground colour */ 
FontDig.clrBack = CLR _ YELLOW; /* Preview background colour */ 
/*Preview text a 
FontDlg.pszPreview = "aBcDeFgHiJkLmNoPgqRsTuVwxyZ"; 
/*Display dialog ba 
WinFontDlg(HWND_DESKTOP, hwnd, &FontD1g) ; 
WinReleasePS (hwnd) ; /*Return presentation space */ 
if (FontDl¢d.lReturn == DID_O;K) /*User pressed OK ae | 


{ 
sprintf (szText, "Selected Font: \n%u.%s", 
FIXEDINT (FontDlg.fxPointSize), 
FontDlg.fAttrs.szFacename) ; 
} 
else /*User cancelled ae | 
sprintf(szText, "Font Dialog Cancelled"); 


WinMessageBox (HWND_DESKTOP, hwnd, szText, FontDlg.pszTitle, 0, 
MB _ INFORMATION | MB_OK | MB MOVEABLE) ; 
ESLUED; 


} 


Figure 7.7. Version 2.0 controls and dialogs: C source file. Concluded. 


8 
The atom manager and user messages 


8.1 The atom manager 


8.1.1 What is an atom? 


There are two kinds of atoms, string and integer. A string atom is a numerical 
value which represents a character string. At boot time a system atom table is 
built, and by using this it is possible to obtain a unique number for a given char- 
acter string. It can be used by the program developer for such things as unique user 
message IDs (see Sec. 8.2), and is used by the system for class names. These atoms 
are called integer atoms (see Sec. 2.4). Integer atoms range in value from 0x0001 to 
OxBFFF and string atoms range from 0xC000 to OxFFFF. 


8.1.2. System and private atom tables 


To obtain the handle of the system atom table use WinQuerySyst emAtom- 
Table: 


HATOMTBL hSysAtomTable; 
hSysAtomTable = WinQuerySystemAtomTable() ; 


The system atom table, built at boot time, is accessible by all processes running in 
your system; if you need to have a private atom table then use WinCreateAtom- 
Table: 


case WM_CREATE: 
hMyAtomTable = WinCreateAtomTable(1024, 0); 
WinAddAtom(hAtomTable, "STRING 1"); 
WinAddAtom(hAtomTable, "STRING 2"); 


° 
/ 
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WinAddAtom(hAtomTable, "STRING n"); 
break; 


This table will only be accessible by the process that created it. 


8.2 Unique user messages 


In Presentation Manager you can create your own private messages to send either 
to your own application or to another. The IDs of these messages are WM_USER+N, 
where WM_USER is 0x1000 and N is greater than or equal to 0. The usual conven- 
tion for user messages is UM_xxx so you would normally define them in your 
header file as follows: 


#define UM_ABORT WM_USER 
#define UM_FINISHED WM_USER+1 


Now, it is fine defining a message, say WM_USER+1, for your own private use in 
your application, but the problems start when an ill-behaved application decides to 
broadcast its own message to every application running on your system. If this 
message also has the ID WM_USER+1 then your application may produce undesir- 
able results, depending on what processing you do with this message. If a// appli- 
cations use the atom manager to obtain their message IDs this problem disappears. 

The steps you need to take to obtain a unique ID using the atom manager are as 
follows: 


1 Declare a variable of type ATOM to be your message ID. 

2 Obtain the handle to the system atom table using WinQuerySystemAtom- 
Table. 

3 Obtain the ID by calling WinAddAtom. 

4 Youcan now check for this ID in your window procedure. 


The following example sets up a unique message um_unique_msg, and when 
mouse button 1 is pressed the application sends itself this message: 


ATOM um_unique_msg; 

/* OR a a ea a oe Lye Seg oe as ee a x / 
/* In your main procedure. oe 
/* so EE aa a ee ce ah i se pee hos * / 


um_unique_msg = WinAddAtom(WinQuerySystemAtomTable(), 
"UM UNIQUE_MSG"); 


while (WinGetMsg(hab, &qmsg, (HWND)NULL, O, Q)) 
WinDispatchMsg (hab, &qmsqg) ; 


WinDeleteAtom(WinQuerySystemAtomTable(), um_unique_msg) ; 
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[RRR KRKKKEREKRERKKRERKEEKERE RK KEREKEREREEKEKKEEKKKREKKEKKERKEKER / 


if (msg == um_unique_msg) 


/ 


DosBeep (100, 100) 
DosBeep (400, 100) 
(700, 100) 
(L000, L100 


DosBeep ; 
DosBeep ) 3 
} 
else 
{ 
Switch (msg) 
{ 
case WM_BUTTON1DOWN: 
WinSendMsg (hwnd, um_unigue_msg, O, 0); 
break; 


} 


Note that since the message ID is now a variable you cannot use it in your switch 
statement. Instead, you must check for it outside the switch statement using an 
if statement. On exit the atom is deleted from the table. 


8.3 Sample program 


This program illustrates the use of the atom manager and user messages. It com- 
prises just a listbox and two pushbuttons (Fig. 8.1). The listbox displays the con- 
tents of the system atom table and a private atom table, depending on the state of a 
flag. Initially, the ‘active’ table is our private user table. To switch tables a unique 
user message, um_unique_msg, is sent to the window procedure by pressing the 
Change Atom Table pushbutton. The message also causes a series of beeps to be 
sounded and the listbox to be cleared. 

The atom table contents are displayed by pressing the Display Atoms button. 
The table search starts at OxC000, the lowest possible string atom value, and ends 
at either “This is the last string’ or ‘UM _UNIQUE_MSG’, depending on whether 
the ‘active’ table is our private table or the system table respectively. 

The following listings show the program’s header file, Fig. 8.2, resource file, Fig. 
8.3, and C source file, Fig. 8.4. 
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Figure 8.1. Atom manager and user messages output. 


#define ID _MATNWND 200 
#define LD TITLE 201 
#define IDM_ONE 202 
#define MI_EXIT 203 
#define MI_RESUME 204 
#define ID_LISTBOX 205 
#define ID_BUTTON1 206 
#define ID_BUTTON2 ayy 
#define Ih TERE 208 


Figure 8.2. Atom manager and user messages: header file. 


The atom manager and user messages 


#include <os2.h> 
finclude “atom. h" 


STRINGTABLE PRELOAD 
BEGIN 

ID_TITLE, "Atom Manager and User Messages" 
END 


ICON TD_MAINWND atom.ico 


ACCELTABLE ID_MATNWND 


BEGIN 
VEK_F3, MI_EXIT, VIRTUALKEY 
END 
MENU ID_MATNWND PRELOAD 
BEGIN 
SUBMENU "Er~xit", IDM_ONE 
BEGIN 
MENUITEM "~Exit Program\tF3", MI_EXIT, 
MENUITEM "~Resume Program", MI RESUME, 
END 
END 


Figure 8.3. Atom manager and user messages: resource file. 


#define INCL _WINWINDOWMGR 
#define INCL _WINFRAMEMGR 
#define INCL _WINSWITCHLIST 
#define INCL _WINSYS 

#define INCL_WINATOM 
#defne INCL _WINLISTBOXES 
#define INCL _WININPUT 
#define INCL_WINSTATICS 


#include <os2.h> 
#include <string.h> 
#include <stdio.h> 
#include "“atom.h" 


MIS_TEXT 
MIS_TEXT 


MRESULT EXPENTRY MainWndProc (HWND, ULONG, MPARAM, MPARAM) ; 


ATOM um_unique_msg; 


Figure 8.4. Atom manager and user messages: C source file. Continues. 
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J PERREREEERRERERKEEEKEERKERE ERKEEKRKEE EEK ERR KER RE REERE RE EK RRERREEREE RK f 


INT main (VOID) 
{ 


HAB hab; 

HMQ hmq; 

HWND hwndFrame, 
hwndClient; 

QOMSG qmsg; 

ULONG flFrameFlags; 

CHAR szTitle[80]; 

SWCNTRL PgmEntry; 

LONG 1X_Left, 
LY _ Bot, 
lHeight, 
lWidth, 
l1ScrHeight, 
LSerwadth; 


[RRRKRERKEKEKRKKEEKKEREKRKEE KEKE KEE ERE RKEKEK KERR EREREKKERERKRKEKEKKEKREKE / 


hab = WinInitialize (0); 
hmg = WinCreateMsgQueue (hab, 0); 


WinRegisterClass(hab, "Atom", MainWndProc, 
CS_SIZEREDRAW, 0); 


WinLoadString (hab, (HMODULE NULL, ID TITLE, 
Sizeolt(szTitle), szTitle) ; 


flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF_MENU | 
FCF _SIZEBORDER | FCF _MINMAX | 
FCF _ACCELTABLE | FCF_ICON; 


hwndFrame = WinCreateStdwindow(HWND_DESKTOP, 0, 
&flFrameFlags, "Atom", 
szTitle, 0, (HMODULE) NULL, 
ID_MAINWND, &hwndClient) ; 


1Scrwidth = WinQuerySysValue (HWND_DESKTOP, SV_CXSCREEN) ; 
l1ScrHeight = WinQuerySysValue (HWND_DESKTOP, SV_CYSCREEN) ; 


1Width 400; 
lHeight = 400; 


Figure 8.4. Atom manager and user messages: C source file. Continues 
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1X Left = (1ScrWidth -1Width) / 2; 
1Y_Bot = (lScrHeight - lHeight) / 2; 


WinCreateWwindow (hwndClient , WC_LISTBOX, NULL, 
WS VISIBLE | DS HORZSCROLL, 50, 60, 300, 
200, hwndClient, HWND_TOP, 
TD LLSTeOx, 0,0) 2 


WinCreateWindow (hwndClient, WC_BUTTON, 
"Change Atom Table", WS_VISIBLE, 
5, 5, 220, 30, hwndClient, 
AWD TOP. LD BUTTON, OU, 0) 


WinCreateWindow (hwndClient, WC_BUTTON, "Display Atoms", 
WS VISIBLE, 250, 5, 140, 30, 
hwndClient, HWND_TOP, ID _BUTTON2, 0O, 0); 


WinCreatewindow (hwndClient, WC_STATIC, 
"Active Atom Table: User", WS_VISIBLE | 
SS TEXT, 50, 280, 300, 30, hwneClient, 
BHWND_ TOP, ID_TEXT, 0, 0); 


| a ape geen ef er Ag a aha eg a * f 
/* Startup in foreground */ 
jf * Bey ray at A Se i ee pte a es ees Ry es * / 


WinSetWindowPos(hwndFrame, 0, 1X_Left, 1Y_ Bot, 1Width, 
lHeight, SWP_SIZE | SWP_MOVE | SWP_SHOW | 
SWP_ACTIVATE) ; 


/* patsy Rtg ge ay a ye yt he, EA, ey Rs * jf 

/* Add to window list */ 

/* ca eas ye ee ee et ae * ‘i 

PomEntry.hwnd = hwndFrame; 
PomEntry.hwndiIcon = (HWND) NULL; 
PomEntry .hprog = (HPROGRAM) NULL; 
PgmEntry.idProcess = (PID) NULL; 
PomEntry.idSession = (ULONG) NULL; 
PomEntry.uchVisibility = SWL_VISIBLE; 
PgomEntry .fbJump = SWL_JUMPABLE; 


strcpy (PgmEntry.szSwtitle, szTitle) ; 


WinAddSwitchEntry (&PgmEntry) ; 


Figure 8.4. Atom manager and user messages: C source file. Continues. 
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um_unique_msg = WinAddAtom(WinQuerySystemAtomTable(), 
"UM_UNIQUE_MSG") ; 


while (WinGetMsg(hab, &qmsg, (HWND)NULL, O, 0) ) 
WinDispatchMsg(hab, &gqmsqg) ; 


/* ey Ss ey St ey eg ee es ee ep se ee is et ee et * / 


WinDeleteAtom (WinQuerySystemAtomTable(), um_unique_msg); 
WinRemoveSwitchEntry (WinQuerySwitchHandle(hwndFrame, 0)); 
WinDestroyWindow (hwndFrame) ; 

WinDestroyMsg Queue (hmq) ; 

WinTerminate (hab) ; 

return 0; 


[RRKKKKKKKEKKEKKEKKEKKKKKKEKKEKRKEKKKKKKKKKKEKKKEKEKKKKKKKKKKKEKKKKKKKEKEK / 


MRESULT EXPENTRY MainWndProc (HWND hwnd, ULONG msg, MPARAM mp1, 
MPARAM mp2) 


static HATOMTBL hMyAtomTable, 


hSysAtomTable, 
hAtomTable; 

static USHORT usAtomStart = 0xCc000, 
usAtomEnd; 

static BOOL fMyTable = TRUE; 

CHAR szAtom[256], 


szlistEntry [256]: 
USHORT I 


1f (msg == um_unique_msg) 


{ 


/ 


DosBeep (100, 100 
DosBeep (400, 100 
( 

( 


/ 


) 
) 
DosBeep (700, 100) 
0 


DosBeep (1000, 100); 


WinSendMsg (WinWindowFrom1ID(hwnd, ID_LISTBOX) , 
LM DELETEALL, 0, 0); 


Figure 8.4. Atom manager and user messages: C source file. Continues. 
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fMyTable = !£fMyTable; 


if (fMyTable) 
{ 
hAtomTable = hMyAtomTable; 
WinSetWindowText (WinWindowFromID (hwnd, ID_TEXT), 
"Active Atom Table: User"); 
} 
else 
{ 
hAtomTable = hSysAtomTable; 
WinSetWindowText (WinWindowFrom1ID (hwnd, ID_TEXT), 
"Active Atom Table: System") ; 


} 

else 

{ 

Switch (msg) 
{ 
case WM_CREATE: 

hMyAtomTable = WinCreateAtomTable(1024, 0); 
hSysAtomTable = WinQuerySystemAtomTable() ; 
hAtomTable = hMyAtomTable; 


WinAddAtom(hAtomTable, "This is the first string"); 
WinAddAtom(hAtomTable, "STRING 02") ; 
WinAddAtom(hAtomTable, "STRING 03") 
WinAddAtom(hAtomTable, "STRING 04") 
WinAddAtom(hAtomTable, "STRING 05") 
WinAddAtom(hAtomTable, "STRING 06"); 
WinAddAtom(hAtomTable, "STRING 07"); 
( ) 
( ) 
( ) 
( ) 
( ) 
( 
( 


. 
/ 
. 
J 


7 


/ 


WinAddAtom(hAtomTable, "STRING 08" 
WinAddAtom(hAtomTable, "STRING 09" 
WinAddAtom(hAtomTable, "STRING 10" 
WinAddAtom(hAtomTable, "STRING 11" 
WinAddAtom(hAtomTable, "STRING 12" 
WinAddAtom(hAtomTable, "STRING 13") ; 
WinAddAtom(hAtomTable, "This is the last string"); 
break; 


J 


£ 


/ 


/ 


case WM_COMMAND: 


Figure 8.4. Atom manager and user messages: C source file. Continues. 
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Switch (SHORT1LFROMMP (mp1) ) 
{ 
case ID_BUTTON1: 
WinSendMsg (hwnd, um_unique_msg, 0O, 0); 
break; 


case ID_BUTTON2 : 
WinSendMsg (WinWindowFromID (hwnd, 
ID LISTBOX) , LM_DELETEALI, 0, 0); 
if (fMyTable) 
usAtomEnd = (USHORT) WinFindAtom 
(hAtomTable, "This is the last string"); 
else 
usAtomEnd = (USHORT) WinFindAtom 
(hAtomTable, "UM_UNIQUE_MSG") ; 
for (I = usAtomStart; I <= usAtomEnd; I++) 
{ 
1f (WinQueryAtomName (hAtomTable, 
(ATOM) I, szAtom, sizeof (szAtom) ) ) 


Sprinttl (szListEntry, "4x as", I, 

szAtom) ; 

WinSendMsg (WinWindowFromID (hwnd, 
I LbIiSTeox) ; 
LM_INSERTITEM, 
(MPARAM) LIT_END, 
SZLiStEntry} ; 


} 


break; 

case MI EXIT: 
WinPostMsg (hwnd, WM_QUIT, 0, 0); 
break; 

aefailtz 


break; 


} 


break; 


case WM_ERASEBACKGROUND: 
return (MRESULT) TRUE; 


} 


return WinDefWindowProc(hwnd, msg, mpl, mp2); 





Figure 8.4. Atom manager and user messages: C source file. Concluded. 


9 
Window words and initialization data 


Window words are a portion of memory allocated within a window structure. The 
logical pointer to the window structure is the window handle. WinQuery- 
WindowULong and WinQueryWindowUShort give access to these sections of 
the window structure. Presentation Manager predefines several of the window 
words, for example, the window style, the pointer to the window procedure, and 
the handle to the message queue associated with the window. 

When you register a window class, you can specify how many window words (in 
bytes), beyond those predefined by Presentation Manager, that you would like 
allocated for each window of that class, by using the cbWindowData parameter 
ina WinRegisterClass call. Once the instance of the class is created, you can 
access the window words by using WinQueryWindowULong, or WinQueryWin- 
dowUShort, by specifying the window handle returned on WinCreat eWindow 
and an index value. 

Window words are typically used to point to data that is unique to each instance, 
or window, of a class. Defining what that data contains is up to you. Usually it is 
allocated and initialized in the WM_CREATE message of your window procedure 
and accessed whenever your window procedure needs it to process a message. 


9.1 Window words for client windows 


You will often have multiple windows of the same class and each window may need 
to store some data, for example a text window may need to store one or more ini- 
tialization strings. It is a bad idea to put data in global variables, as it makes it 
difficult to reuse the window class and multitasking may not work. If a global vari- 
able is changed while processing one window then it will apply to all other windows 
of that class, which is probably not what you want. 

It is usual to store pointers to data in window words rather than the data itself, 
as it is more efficient. 

The steps you need to take are as follows: 
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1 When registering the class, you specify how many extra bytes you want. The 
first non-reserved window word is at offset OWL_USER. However, if your win- 
dow is likely to be subclassed then you should skip this and start at the next 
word, so define 


#define QWL MYWWORD (QWL_USER + 4) 


and use this as the offset instead of OWL_USER, but do not forget to allow for 
the extra four bytes when you register your window class. 

2 When your window processes the WM_CREATE message, use DoSAl]1ocMem to 
allocate memory for your data and use WinSetWindowULong to put the 
pointer to this memory into the window word after initializing the data. 


typedef struct _WINDATA 
{ 
USHORT usWinCount; 
CHAR szWinText [33]; 
} WINDATA; 


WINDATA *pWinData; 
static PVOID BaseMem, 
MemOffset; 


case WM_CREATE: 
DosAllocMem(&BaseMem, 4096, PAG READ | PAG WRITE | 
PAG COMMIT) ; 
DosSubSetMem(BaseMem, DOSSUB_INIT, 4096) ; 
DosSubAllocMem(BaseMem, &MemOffset, sizeof (WINDATA) ); 
pWinData = MemOffset; 


pWinData->WinCount = 0; 

strcpy (pWinData->szWinText, "Initial text"); 
WinSetWindowULong (hwnd, QWL_USER, (ULONG) pWinData) ; 
break; 


Using 16-bit OS/2 we could just call DosAllocSeg to allocate the memory, but 
we cannot do that in OS/2 V2.0, as each time we allocate memory we get at least 
4096 bytes (1 page). This would be an incredible waste of memory, and if all appli- 
cations running in version 2.0 did this we would soon be running out of memory, 
that is, the sum of physical memory and available swap space. Instead, we allocate 
sufficient memory to begin with and suballocate as required. You should, of 
course, check the return code from DosSubAllocMem. If it is 311, or 
ERROR_DOSSUB_NOMEM, then there is insufficient memory remaining, so you 
need to allocate further pages. An alternative technique would be to allocate suffi- 
cient memory at the start and write an exception handler to trap access violations 
and commit pages as appropriate. Since this is new for version 2.0, a simple excep- 
tion handler that could be used here is included in Chapter 15. 
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3 When you wish to retrieve the pointer use WinQueryWindowULong: 


pWinData = (WINDATA *)WinQueryWindowULong (hwnd, 
QWL_USER) ; 


4 Finally, when the window receives a WM_DESTROY message use DosSub- 
FreeMem to release the storage associated with the window word: 


case WM_DESTROY: 
pWinData = (WINDATA *)WinQueryWindowULong (hwnd, 
QWL_USER) ; 
DosSubFreeMem (BaseMem, pWinData, sizeof (WINDATA) ); 
break; 


At first sight this may seem rather complex so, to clarify, look at Sec. 9.4. 


9.2 Window words for dialog boxes 


Since a dialog box is no more than a frame window, it has, by default, four bytes of 
instance data at offset QWL_USER which can be used to store a pointer, just as for 
window words for a client window. The only difference is that storage should be 
allocated in the WM_INITDLG case statement rather than the WM_CREATE state- 
ment. 


9.3 Initialization data for dialog boxes 


If initialization data is required for a dialog box then it can be passed to the dialog 
box procedure using the CreateParams parameter on the WinLoadDlg or 
WinD1lgBox call. It can be accessed in the dialog procedure through parameter 
mp2: 


/* Define data structure for dialog box */ 
typedef struct _DLGDATA 
{ 
CHAR szEntrylText [33]; 
CHAR szEniry2ZText (33 | % 
CHAR szEntry3Text [33]; 


} DLGDATA; 

j* ee ae Ns Set REE RNS ae Stee So pee eB gee Bay ay, ay en CR gh * / 
/* In your main window procedure ad 
/* pi eae SR Ah ha as tn tn cn ty tee oye er pre as aes eI * / 


DLGDATA InitData; 
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case ID_xxx: /* Display dialog box */ 
strepy (InitData.szEntryiText, "Initial Dlg text 1"); 
strcepy (InitData.szEntry2Text, "Initial Dlg text 2"); 
strcepy (InitData.szEntry3Text, "Initial Dlg text 3"); 
hDlg = WinLoadDlg (HWND_DESKTOP, HWND_DESKTOP, DlgProc, 
(HMODULE) NULL, DLG_WWORDS, &InitData); 
WinShowWindow(hDlg, TRUE) ; 


break; 
/* es gee Fe a Sa re er ON NTE et eee eae Sey A One eee Cee et Frey aE eae * / 
/* and in your dialog box procedure...*/ 
fe a ea a, ea el peace hh a eg Tac pe ape eed tet ee hy Ss ae has hs A Gt Se * / 


DLGDATA *pDlgData; 


case WM_INITDLG: 

pDlgData = (DLGDATA *)mp2; 

WinSetWindowText (WinWindowFromID(hwndDlg, ID_ENTRY1), 
pDlgData->szEntryl1Text) ; 

WinSetWindowText (WinWindowFromiD(hwndDlg, ID_ENTRY2), 
pDlgData->szEntry2Text) ; 

WinSetWindowText (WinWindowFrom1iD(hwndDlg, ID_ENTRY3), 
pDlgData->szEntry3Text) ; 


break; 


9.4 Sample program 


This program is rather more complex than the others in this book, but can be 
explained diagrammatically by Fig. 9.1. The main client window makes use of 
two window words, one for its child windows and the other to receive the output 
from modeless dialog boxes. 

The first window word is used to pass initialization data to a child window. The 
data structure comprises a count of windows and an initial string of text to display 
in the child’s entry field. When a child window is created the count is incremented 
in both the main client’s and child’s window word data area and is displayed in 
the child window. The initialization text is written to the entry field and can be 
modified. This change can be saved by pressing mouse button 1 (MB 1). 

When a dialog box is created, initialization data is passed to it via the mp2 para- 
meter of the WinLoadD1g call and is displayed in its entry fields which may be 
modified (Fig. 9.2). When the OK button is pressed the window word data area 
is updated with the new text and a WM_USER message is sent to the main client 
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Figure 9.1. Use of window words in the sample program. 
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Figure 9.2. Window words and initialization data output. 


window. One of the parameters, mp1, of this message is the dialog box window 
handle, so that the main client window can access the dialog box’s window word 
data area and take a copy of it. The client then destroys the dialog box and dis- 
plays the dialog box’s text in the main window. 

The main points brought out in this sample are the use of window words to: 


e Pass initialization data to multiple child windows 
e Retrieve data from dialog boxes 


Figure 9.3. takes a closer look at the C source for this program (see page 206). 

When we register the window classes we define how many bytes to reserve for 
window words. In this case we define eight bytes for the main window, since we 
require two window words; and four bytes for the child windows. The main win- 
dow comprises just two pushbuttons, one to create a child window and another to 
create a modeless dialog box. 

When the main window is created, we allocate a page of memory (4096 bytes), 
suballocate it and store pointers to the window word data structures, WINDATA 
and DLGDATA, at QWL_USER and QWL_USER+4, respectively. This is an obvious 
change from 16-bit OS/2 where we would probably just issue a DosAllocSeg for 
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the necessary space on demand, as follows: 


case WM_CREATE: 

OFFSETOF (pClientWinData) = 0; 

OFFSETOF (pDlgData) = 0; 

DosAllocSeg (sizeof (WINDATA) , 

(PSEL) &SELECTOROF (pClientWinData), 0); 

DosAllocSeg (sizeof (DLGDATA) , 

(PSEL) &SELECTOROF (pDlgData), 0); 

pClientWinData->usWinCount = 0; 

If you press the Create Window pushbutton, a child window is created, and 
during this creation process we retrieve the handle of the main client window so 
that we can get the pointer to its parent’s window word data (WINDATA) which 
holds the initialization data. If this is the first child then we allocate a page of mem- 
ory and initialize it for suballocation. This is to store its child’s unique initialization 
data. As you can see from the code, we limit the number of child windows that can 
be created. This is because no extra benefit would be gained in allowing an indef- 
inite number to be created in this sample program. In reality, of course, you would 
check the return code on the DosSubAllocMem call for a value of 311, 
ERROR_DOSSUB_NOMEM, and allocate further memory, or write your own excep- 
tion handler (see Chapter 15). This limit is set to 100, which at first sight implies 
only 3500 bytes (length of WINDATA = 35) are being used. However, 100 is the 
absolute maximum we can hold in a page of memory. The reason for this is quite 
straightforward. Whenever we suballocate a memory object, 64 bytes are used for 
control information; this leaves us 4032 bytes for data in our example. Now, when 
we actually suballocate memory we always receive an amount divisible by eight, so 
if we ask for an amount which is not, then it is rounded up to the next eight. Since 
our WINDATA structure is 35 bytes long we are actually allocated 40 bytes. So, 100 
windows will require: 


64 + (100 x 40) = 4064 bytes 


So we have wasted a few bytes, but if we were converting this program from 16-bit 
OS/2, without using suballocation, and just replaced the DosAllocSeg with 
DosAllocMem, we could be using as much as 400 kb of memory. The importance 
of looking carefully at all your memory management routines when converting to 
32-bit cannot be overstressed. The more memory you use, the more paging will 
affect your and, more importantly, your user’s system. 

By performing a similar calculation, we can store data sufficient only for 38 dia- 
log boxes. These limits are, of course, more than sufficient for this example. So, 
when the child window is displayed it shows the text ‘I am childno. N’, where 
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N increments for each new child window, and the child window’s entry field is ini- 
tialized to ‘Initial text’. This text can be changed and saved in the child’s 
window word by pressing mouse button 1. Failure to press it will cause the initial 
text to be redisplayed if the window is repainted. In a real application, pressing 
mouse button 1 would not normally be the method used to cause the data struc- 
ture to be updated. It is done here purely for simplicity and convenience. 

Finally, as each window is destroyed the space associated with it is freed, and 
when the last window is destroyed use of the memory pool is ended. Again, this 
is different from the 16-bit version where we probably did not suballocate: 


case WM _DESTROY: 
pClientWinData = (WINDATA *)WinQueryWindowULong (hwnd, 
OQWL_USER) ; 
DosFreeSeg (SELECTOROF (pClientWinData) ); 
break; 


When a dialog box is created, it will contain the text ‘Initial DlgtextN’, 
where N is 1, 2 and 3. Changing this text and pressing OK causes the text to be 
passed back to the client window for display, at which time the dialog box is 
destroyed and the storage released. 

The method used for communicating between the dialog box and the client win- 
dow is a user message, UM_DLG_DONE, defined as WM_USER. 

The following listings show the program’s C source file, Fig. 9.3, header file, Fig. 
9.4, resource file, Fig. 9.5, and dialog template, Fig. 9.6. 


#define INCL_WINWINDOWMGR 
#define INCL WINFRAMEMGR 
#define INCL _WINSWITCHLIST 
#define INCL WINSYS 

#define INCL_WINBUTTONS 
#define INCL WINENTRYFIELDS 
#define INCL_WININPUT 
#define INCL WINDIALOGS 


#include <os2.h> 

#include <string.h> 
#include <stdio.h> 
#include "wwords.h" 


MRESULT EXPENTRY MainWndProc (HWND, ULONG, MPARAM, MPARAM) ; 
MRESULT EXPENTRY ChildWndProc(HWND, ULONG, MPARAM, MPARAM) ; 
MRESULT EXPENTRY DlgProc (HWND, ULONG, MPARAM, MPARAM) ; 


typedef struct _WINDATA 
{ 


Figure 9.3. Window words and initialization data: C source file. Continues. 


USHORT 
CHAR 


Window words and initialization data 


usWinCount ; 
szWinText [33]; 


} WINDATA; 


typedef struct _DLGDATA 


{ 
HWND 
CHAR 
CHAR 
CHAR 


hwndClient; 

szentryl Text (33); 
SszEntryZ2Text [33]; 
szEntry3Text [33]; 


} DLGDATA; 
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[J FREREREERERR EEREEREREREEE EREKEREKEEREEKEKREREKRERERKEK EEEREREREKE / 


INT main 
i 
HAB 
HMQ 
HWND 


QMSG 
ULONG 
CHAR 
SWCNTRL 
LONG 


(VOID) 


hab; 

hmq; 
hwndFrame, 
hwndClient; 
Qgmsg; 
flFrameFlags; 
szTitle[80]; 
PQOMENCTY ; 
1X_Left, 
LY _ Ber. 
lHeight, 
1Wwidth, 
1ScrHeight, 
1Scrwidth; 


fEEEEERESEEESEKKEERELEREEEE EERE KEE KEE KERR ERERERR ER RE ERE RE ME / 


hab = WinInitialize(0); 
hmg = WinCreateMsgQueue (hab, 0); 


WinRegi 


WinRegisterClass(hab, "WwordsChild", ChildWndProc, 
CS_SIZEREDRAW, sizeof (ULONG) ); 


sterClass(hab, "Wwords", MainWndProc, 


CS_SIZEREDRAW, 2*sizeof(ULONG) ) ; 


WinLoadString (hab, (HMODULE)NULL, ID_TITLE, 


Figure 9.3. Window words and initialization data: C source file. Continues. 


sizeof(szTitle), szTitle) ; 
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flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF_MENU | 
FCF_SIZEBORDER | FCF_MINMAX | 
FCF_ACCELTABLE | FCF_ICON | 
FCF_NOBYTEALIGN; 


hwndFrame = WinCreateStdwindow(HWND_DESKTOP, 0, 
&flFrameFlags, "Wwords", 
szTitle, 0, (HMODULE) NULL, 
ID_MAINWND, &hwndClient) ; 


WinCreateWindow(hwndClient, WC_BUTTON, "Create Window", 
WS_VISIBLE | WS_CLIPSIBLINGS | 
BS. PUSHBUTTON, 10, 10, 150, 30, 
hwndClient, HWND_BOTTOM, 
1D. PUSHBINL, O, OQ} 3 


WinCreateWindow(hwndClient, WC_BUTTON, "Create Dialog", 
WS_VISIBLE | WS_CLIPSIBLINGS | 
BS PUSHBUTTON, 160,10, 150, 30, 
hwndClient, HWND_BOTTOM, 
LD _PUSHBINZ, 0, 0); 


1ScrWidth = WinQuerySysValue(HWND DESKTOP, SVCXSCREEN) ; 
1ScrHeight = WinQuerySysValue (HWND_DESKTOP, SV_CYSCREEN) ; 


IWLakh = 250; 
lHeight = 350; 


1X Left = (lScrWidth - 1Width) /2; 


1Y_ Bot = (lScrHeight - lHeight) / 2; 
/* et ea aa i i eta ae fo a) ma Sean Bas a Geet nade ta * / 
/* Startup in foreground */ 
/* a ye fh a he en Sk ee * 


WinSetWindowPos(hwndFrame, 0, 1X Left, 1Y_ Bot, 1Width, 
lHeight, SWP_SIZE | SWP_MOVE | SWP_SHOW | 
SWP_ACTIVATE) ; 


/* ce an oa as ey Se enh eee he ae ad * / 

/* Add to window list */ 

/* A aaa a ee aay cis ieee cet tang eee dt * / 

PgmEntry .hwnd = hwndFrame; 
PgmEntry .hwndIcon = (HWND) NULL; 


PomEntry.hprog (HPROGRAM) NULL; 


Figure 9.3. Window words and initialization data: C source file. Continues. 
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PgmEntry.idProcess = (PID) NULL; 

PgmEntry.idSession = (ULONG) NULL; 
PomEntry .uchVisibility = SWL_VISIBLE; 
PomEntry . fbJump = SWL_JUMPABLE; 


strcpy (PgmEntry.szSwtitle, szTitle); 
WinAddSwitchEntry (&PgmEntry) ; 


while (WinGetMsg(hab, &qmsg, (HWND)NULL, 0, 0) ) 
WinDispatchMsg(hab, &gmsq) ; 


/* a ee es pe ges eee as pee ee a og ee Pa x / 
/* Remove from window list and clean up */ 
/* pa aS hd eee ee * / 


WinRemoveSwitchEntry (WinQuerySwitchHandle(hwndFrame, 0)); 
WinDestroyWindow (hwndFrame) ; 

WinDestroyMsgQueue (hmq) ; 

WinTerminate (hab) ; 

return 0; 


[RRERKERKKEKRKERKEKEKRKEEKKKEKKEKKEKKEKEERKEKEEEKERKEKEKEEREEKKEKKEEKEKRKEKKEEKE / 


MRESULT EXPENTRY MainWndProc (HWND hwnd, ULONG msg, 
MPARAM mpl, MPARAM mp2) 


Static ULONG flCFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | 
FCF _SIZEBORDER | FCF_MENU | 
FCF _ACCELTABLE; 


HWND hChildFrame, 
hChildClient, 
HDLe: 

HPS hps; 

RECTL rel; 


WINDATA *pClientWinData; 
DLGDATA *pDlgData, 


*oClientDlgData, 
InitData; 
static PVOID BaseMem, 
MemOffset; 
static LONG ix= 20, 


/* Start X position for Child Window */ 


Figure 9.3. Window words and initialization data: C source file. Continues. 
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1¥ = 503 /* Start Y position for Child Window */ 


Static USHORT usDlgCount =0;/* Count of dialog boxes a 


Switch (msg) 
{ 
case WM_CREATE: 
DosAllocMem(&BaseMem, 4096, PAG READ | PAG _ WRITE 
PAG _ COMMIT) ; 

DosSubSetMem (BaseMem, DOSSUB_INIT, 4096) ; 

DosSubAllocMem(BaseMem, &MemOffset, 
sizeof (WINDATA) ) ; 

pClientWinData = MemOffset; 

DosSubAllocMem(BaseMem, &MemOffset, 
sizeof (DLGDATA) ) ; 

pDlgData = MemOffset; 


pClientWinData-sSusWinCount = 0; 
strcpy (pClientWinData->szWinText, "Initial text"); 


pDlgData->szEntrylText [0] =7\0"; 
pDlgData->szEntry2Text [0] = ‘\0’; 
pDlgData-—sszEntry3Text [0] =*\0"'; 


WinSetWindowULong (hwnd, QWL_USER, 
(ULONG) pClientWinData) ; 
WinSetWindowULong (hwnd, QWL_USER+4, 
(ULONG) pDlgData) ; 
break; 


case WM_DESTROY: 
pClientWinData = (WINDATA *)WinQueryWindowULong 
(hwnd, QWL_USER) ; 
pDlgData = (DLGDATA *) WinQueryWindowULong (hwnd, 
QWL_USER+4) ; 
DosSubFreeMem(BaseMem, pClientWinData, 
sizeof (WINDATA) ); 
DosSubFreeMem(BaseMem, pDlgData, 
Sizeof(DLGDATA) ); 
DosSubUnsetMem(BaseMem) ; 
DosFreeMem(BaseMem) ; 
break; 


Figure 9.3. Window words and initialization data: C source file. Continues. 
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case WM_PAINT: 

hps = WinBeginPaint (hwnd, (HPS)NULL, (PRECTL) NULL) ; 

WinQueryWindowRect (hwnd, &rcl); 

pDlgData = (DLGDATA *)WinQueryWindowULong (hwnd, 

QWL_USER+4) ; 

WinDrawText (hps, strlen(pDlgData->szEntryl1Text) , 
pDlgData->szEntrylText, &rcl, 
SYSCLR_WINDOWTEXT, SYSCLR_WINDOW, 
DIT _ LEFT | DI_BRASERECT) ; 

rcl.yTop == 20; 

WinDrawText (hps, strlen(pDlgData->szEntry2Text), 
pDlgData->szEntry2Text, &rcl, 
SYSCLR_WINDOWTEXT, SYSCLR_WINDOW, 
DI_LEFT | DT_ERASERECT) ; 

Vel, yvTop -= 20; 

WinDrawText (hps, strlen(pDlgData->szEntry3Text), 
pDlgData->szEntry3Text, &rcl, 
SYSCLR_WINDOWTEXT, SYSCLR_WINDOW, 
DT_LEFT | DT_ERASERECT) ; 

WinEndPaint (hps) ; 

break; 


case WM_COMMAND: 
Switch (SHORT1LFROMMP (mp1) ) 
{ 
case ID_PUSHBTN1: 

hchildFrame = WinCreateStdWindow(hwnd, 0, 
&flcFrameFlags, "WwordsChild", 
"Child Window", 0, 
(HMODULE) NULL, ID _CHILDWND, 
&hChildCclient ) ; 


WinCreateWindow(hChildClient, WC_ENTRYFIELD, 
""' WS_VISIBLE | ES MARGIN, 
5O, Poy 200, 20; 
hChildClient, HWND_TOP, 
LD ENTRYFPLD, O, O)}- 


WinSetWindowPos(hChildFrame, 0, 1X, 1Y, 300, 
200, SWP_SIZE | SWP_MOVE | 
SWP_SHOW) ; 


Figure 9.3. Window words and initialization data: C source file. Continues. 
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1X += 10; /* Offset the next window */ 
1Y += 10; 
break; 


case ID_PUSHBTN2: 
1f (++usDlgCount <= MAX _DLGBOXES) 
{ 
InitData.hwndClient = hwnd; 
strcepy (InitData.szEntry1Text, 
"Initial Dig text 1"): 
strcpy (InitData.szEntry2Text, 
'TnAtetial Dlg text 2"); 
strcpy (InitData.szEntry3Text, 
"Initial Dlg text 3"); 
hDlg = WinLoadDlg (HWND_DESKTOP, 
HWND_DESKTOP, DlgProc, 
0, DLG_WWORDS, 
&InitData) ; 
WinShowWindow(hDlg, TRUE) ; 
} 
else 
i 
WinAlarm(HWND_DESKTOP, WA_WARNING) ; 
usDlgCount = MAX _DLGBOXES; 
} 


break; 


case MI_EXIT: 
WinPostMsg (hwnd, WM_QUIT, 0O, 0); 
break; 


default: 
break; 


} 


break; 


case UM_DLG_DONE: 
pDlgData = (DLGDATA *)WinQueryWindowULong 
((HWND) mp1, QWL_USER) ; 
pClientDlgData = (DLGDATA *)WinQueryWindowULong 
(hwnd, QWL_USER+4) ; 
strcpy (pClientDlgData->szEntrylText, 
pDlgData->szEntry1Text) ; 


Figure 9.3. Window words and initialization data: C source file. Continues. 
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strcpy (pClientDlgData->szEntry2Text, 
pDlgData->szEntry2Text) ; 

strcpy (pClientDlgData->szEntry3Text, 
pDlgData->szEntry3Text) ; 

usDlgCount-; /* Dialog box being destroyed */ 

WinDestroyWindow((HWND) mp1) ; 

WinInvalidateRect (hwnd, NULL, TRUE) ; 

break; 


case WM_ERASEBACKGROUND: 
return (MRESULT) TRUE; 
} 


return WinDefWindowProc (hwnd, msg, mpl, mp2) ; 


[RRRKKKKKKKKK KEKKKKKKKKEKEKKEKEKEKKKKEKKEKEKEKKEKKKKKKEKEKEKKKKEKEKKEKKKEKK / 


MRESULT EXPENTRY ChildWndProc (HWND hwnd, ULONG msg, MPARAM mp1, 


MPARAM mp2) 
HWND hFrame, 
hCl Verne ; 
HPS hps; 
RECTL rel; 
CHAR szText [20]; 
WINDATA *pChildWinData, 
*oClientWinData; 


/* Count of windows in existence */ 
static USHORT usWinCount = 0; 
static PVOID BaseMem, 
MemOffset; 


Switch (msg) 
{ 
case WM_CREATE: 
/* Get handle of our main client window */ 
/* i.e. grandparent of this window af 


hFrame = WinQueryWindow (hwnd, QW_PARENT) ; 

hClient = WinQueryWindow(hFrame, QW_PARENT) ; 

pClientWinData = (WINDATA *)WinQueryWindowULong 
(hclient, QWL_USER) ; 

1£ (++usWinCount == 1) 


Figure 9.3. Window words and initialization data: C source file. Continues. 
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{ /* First window going to be created */ 
DosAllocMem(&BaseMem, 4096, PAG READ | PAG WRITE | 
PAG COMMIT) ; 


DosSubSetMem(BaseMem, DOSSUB_INIT, 4096) ; 
} 


1£ (usWinCount > MAX WINDOWS) 
/* No more windows can be created */ 
WinAlarm(HWND_DESKTOP, WA_WARNING) ; 
usWinCount = MAX WINDOWS; 
return (MRESULT) TRUE; 


DosSubAllocMem(BaseMem, &MemOffset, 
sizeof (WINDATA) ); 
pChildWinData = MemOffset; 
pChildWinData-susWinCount = 
++pClientWinData-sSusWinCount; 

strcpy (pChildWinData->szWinText, 

pClientWinData->szWinText) ; 
WinSetWindowULong (hwnd, QWL_USER, 

(ULONG) pChil dWinData) ; 

break; 


case WM_DESTROY : 
pChildWinData = (WINDATA *) WinQueryWindowULong 
(hwnd, QWL_USER) ; 
DosSubFreeMem(BaseMem, pChildWinData, 
sizeof (WINDATA) ); 


if (-usWinCount == 0) 
/* Last window being destroyed? */ 


DosSubUnsetMem(BaseMem) ; 
DosFreeMem(BaseMem) ; 


} 


break; 


case WM_PAINT: 
hps = WinBeginPaint (hwnd, (HPS)NULL, (PRECTL) NULL) ; 
pChildWinData = (WINDATA *)WinQueryWindowULong 
(hwnd, QWL_USER) ; 
WinQueryWindowRect (hwnd, &rcl)j; 


Figure 9.3. Window words and initialization data: C source file. Continues. 
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sprinti(szText, "Iamchild no. 4a", 
pChildWinData-s>SusWinCount) ; 
WinDrawText (hps, strlen(szText), szText, &rcl, 
SYSCLR_WINDOWTEXT, SYSCLR_WINDOW, 
DT_LEFT | D?T_ERASERECT) ; 
WinSetWindowText (WinWindowFromiID(hwnd, ID_ENTRYFLD), 
pChildWinData-> szWinText); 
WinEndPaint (hps) ; 
break; 


case WM CLOSE: 
WinDestroyWindow (WinQueryWindow (hwnd, QW_PARENT) ); 
break; 
case WM_BUTTONI1DOWN: 
pChildWinData = (WINDATA *) WinQueryWindowULong 
(hwnd, QWL_USER) ; 
WinQueryWindowText (WinWindowFromID (hwnd, 
ID_ENTRYFLD), sizeof ( 
pChildwWin Data--> szWinText), 
pChildWinData->szWinText) ; 


break; 


case WM_COMMAND: 
switch (SHORTIFROMMP (mp1) ) 
{ 
case MI_EXIT: 
WinDestroyWindow (WinQueryWindow (hwnd, 
QW_PARENT) ) ; 


break; 


default: 
break; 


} 


break; 


case WM_ERASEBACKGROUND: 
return (MRESULT) TRUE: 


} 
return WinDefWindowProc (hwnd, msg, mol, mp2); 


Figure 9.3. Window words and initialization data: C source file. Continues. 
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MRESULT EXPENTRY DlgProc (HWND hwndDlg, ULONG msg, MPARAM mp1, 
MPARAM mp2 ) 


DLGDATA *pDlgData; 
static HWND hclient; 
static PVOID BaseMem, 
MemOffset; 
static USHORT usDlgCount = 0; 
/* Count of dialog boxes in existence */ 
Switch (msg) 
{ 
case WM_INITDLG: 
pDlgData = (DLGDATA *)mp2; 
hClient = pDlgData->hwndClient; 
WinSetWindowText (WinWindowFromID(hwndDlg, 
ID_ENTRY1) , pDlgData-> szEntry1Text) ; 
WinSetWindowText (WinWindowFromID(hwndDlg, 
ID_ENTRY2Z), pDlgData-> szEntry2Text) ; 
WinSetWindowText (WinWindowFromiID(hwndDlg, 
ID_ENTRY3), pDlgoData-> szEntry3Text) ; 


1f (++usDlgCount == 1) 
/* First dialog box going to be created */ 


DosAllocMem(&BaseMem, 4096, PAG READ | PAG WRITE 
PAG _ COMMIT) ; 
DosSubSetMem (BaseMem, DOSSUB_INIT, 4096); 
} 
DosSubAllocMem(BaseMem, &MemOffset, sizeof 
(DLGDATA) ) ; 
pDlgData = MemOffset; 
WinSetWindowULong (hwndDlg, QWL_USER, (ULONG) 
pDlgData) ; 
break; 


case WM_COMMAND: 
Switch (SHORT1FROMMP (mp1) ) 


{ 
case ID_OK: 


Figure 9.3. Window words and initialization data: C source file. Continues. 
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pDlgData = (DLGDATA *)WinQueryWindowULong 
(hwndDlg, QWL_USER) ; 

WinQueryWindowText (WinWindowFromID(hwndDlg, 
ID_ENTRY1), sizeof ( 
pDlgData-> szEntry1Text) , 
pDlgData->szEntryl1Text) ; 

WinQueryWindowText (WinWindowFromID(hwndDlg, 
ID_ENTRY2), sizeof ( 
pDlgData-> szEntry2Text) , 
pDlgData-> szEntry2Text) ; 

WinQueryWindowText (WinWindowFromID(hwndDlg, 
ID_ENTRY3), sizeof ( 
pDlgData-> szEntry3Text) , 
pDlgData-> szEntry3Text) ; 

WinPostMsg(hClient, UM_DLG_DONE, (MPARAM) hwndDlg, 

O}% 
break; 
default: 
return FALSE; 
} 


break; 


case WM_DESTROY: 
pDlgData = (DLGDATA *)WinQueryWindowULong (hwndDlg, 
QWL_USER) ; 
DosSubFreeMem(BaseMem, pDlgData, sizeof (DLGDATA) ); 
1f (-usDlgCount == 0) 
/* Last dialog box being destroyed? */ 


DosSubUnsetMem(BaseMem) ; 
DosFreeMem(BaseMem) ; 


} 


break; 


default: 


return WinDefDlgProc (hwndDlg, msg, mpl, mp2) ; 


} 
return FALSE; 


Figure 9.3. Window words and initialization data: C source file. Concluded. 
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#define UM_DLG_ DONE WM_USER 
#define MAX WINDOWS 100 
#define MAX _DLGBOXES 38 
#define ID_MAINWND 200 


#define ID TITLE 20k 
#define IDM ONE 202 
#define MI EXIT 203 


#define MI_RESUME 204 
#define ID_PUSHBTN1 205 
#define ID_PUSHBTN2 206 
#define ID_CHILDWND 207 
#define ID_ENTRYFLD 208 
#define DLG_WWORDS 256 
#define ID_OK 257 
#define ID_ENTRY1 256 
#define ID_ENTRY2 259 
#define ID_ENTRY3 260 


Figure 9.4. Window words and initialization data: header file. 


ftinclude <os2.h> 
#include "wwords.h" 


STRINGTABLE PRELOAD 
BEGIN 

ID TITLE, "Window Words and Initialization Data" 
END 


ICON ID_MAINWND wwords.ico 


ACCELTABLE ID_MATNWND 
BEGIN 

VK_F3, MI_EATT, VIRTUALKEY 
END 


ACCELTABLE ID_CHILDWND 


BEGIN 
WRK_F3, MT RATT, VIRTUALKEY 
END 
MENU ID_MATINWND PRELOAD 
BEGIN 


Figure 9.5. Window words and initialization data: resource file. Continues. 
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SUBMENU "Erxit", IDM_ONE 
BEGIN 
MENUITEM "~Exit Program\tF3", MI_BALT, MES VEX T 
MENUITEM "~Resume Program", MI RESUME, MIS TEXT 
END 
END 
MENU ID_CHILDWND PRELOAD 
BEGIN 
SUBMENU "E~xit", IDM_ONE 
BEGIN 
MENUITEM "~Close Window\tF3", MI FATTY, MIS_TEXT 
MENUITEM "~Resume", MI_ RESUME, MiSs TEXT 
END 
END 


rcinclude wwords.dlg 


Figure 9.5. Window words and initialization data: resource file. Concluded. 


DLGINCLUDE 1 "WWORDS.H" 


DLGTEMPLATE DLG_ WWORDS LOADONCALL MOVEABLE DISCARDABLE 
BEGIN 
DIALOG "Modeless Dialog Box", DLG_WWORDS, 165, 98, 159, 79, 
FS_NOBYTEALIGN | FS_SCREENALIGN | 
WS_VISIBLE, FCF_TITLEBAR 


BEGIN 
ENTRYFIELD "", ID_ENTRYL, 7, 62, 147, 8, ES_MARGIN 
ENTRYFIELD "", ID_ENTRY2, 7, 42, 146, 8, ES_MARGIN 
ENTRYFIELD w", ID_ENTRY3, 7, 22, 146, 8, ES_MARGIN 
DEPPUSHBUTION "OK", LD_OK, 5, 2, 29, 14 
END 
END 


Figure 9.6. Window words and initialization data: dialog template. 


10 
Window enumeration 


10.1 What is enumeration? 


Enumeration is the process by which you can obtain the window handle of all the 
child windows of any given parent window handle. If you start with 
HWND_DESKTOP then you can obtain all the main window handles in your 
system. Similarly, using HWND_OBJECT you can obtain all the object window 
handles. 

You would use enumeration if you needed to find the handle of a window run- 
ning in another process, or even in your own process, so that you could send it a 
message. The API functions you use for enumeration are WinBeginEnumWin- 
dows, WinGetNextWindow and WinEndEnumWindows. 

In the following example we search for an object window of class ThreadsObj 
(used later in Fig. 12.4): 


#define UM_SUICIDE WM_USER+4 


HENUM hEnum; 
HWND hWin; 
CHAR szClassButfer[20]; 


/* Start enumerating object windows */ 
hEnum = WinBeginEnumWindows (HWND_OBJECT) ; 

/* Keep going until NULL returned a i 
while (hWin = WinGetNextWindow (hEnum) ) 
{ 


WinQueryClassName(hWin, sizeof (szClassBuffer), 


szClassBuffer) ; 
/* BS a i Ne ae a ee Or (et se oat ih, see i Sah aN fe Ne Beg U8 fas ee Be * / 
/* T= class name is that of our i | 
/* THREADS program, kill it wy 
/* Ca a Pe Re aE eT Ie ad OE COO RT AO pers Re ea eR Ee OE, Se *~ yf 
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if (!stremp(szClassBuffer, "ThreadsObj") ) 
WinPostMsg(hWin, UM_SUICIDE, 0, 0); 


} 


WinEndEnumWindows (hEnum) ; /* End enumeration */ 


If we find it, we send it a user message, which in this case is a message to force the 
thread to exit. There should, of course, be some cooperation between the two pro- 
cesses. We should never send random messages to other processes in the system as 
this may cause undesired effects. 


10.2 Obtaining the handle of a child window 


Suppose you need to send a message to a window in another process, a listbox for 
example. To do this you obviously need the handle of that listbox, and this can be 
obtained by enumerating the child windows of the desktop, HWND_DESKTOP. 

Because only the immediate children of the specified parent window are enum- 
erated, child windows of the child, that is, the grandchildren, are excluded. This 
means that when we receive a handle we need to check it for a frame window, 
or for a class name of "#1". If it is a frame window then we get the class name 
of its client window, and if it is what we are looking for then we can start a second 
enumeration loop using the client window handle as the parent. We now need to 
check for a listbox, and this has a class name of "#7". In the following example 
we search for the listbox in the THREADS program. We know that this applica- 
tion has only one listbox, so as soon as we get a class name of "#7" we have our 
desired handle and can do just as we please with it. In this case we just change its 
colour: 


HENUM hEnum, 
hEnumcC ; 
HWND hWin, 
hLbox; 
CHAR szClassBuffer[20]; 


hEnum = WinBeginEnumWindows (HWND_DESKTOP) ; 
while (hWin = WinGetNextWindow (hEnum) ) 
{ 


WinQueryClassName(hWin, sizeof(szClassBuffer), 


szClassBurtter) ; (/*------s4+<=s----=+ ar 

1f (!stremp(szClassBuffer, "#1")) /* Frame? i 
{ p RSS Sas SS SSeS a 
/* Get class name * / 


WinQueryClassName (WinWindowFromID(hWin, FID CLIENT), 
sizeof (szClassBuftfer), 
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szClassBuffer); 
/* So aan ag Ne a eS ee ee * / 
/* Our class? ars 
/* ae ae Ne ee pe re ges esas EN Se * / 


1f (!strcemp(szClassBuffer, "Threads") ) 
{ hEnumC = WinBeginEnumWindows (WinWindowFromID 
(hWin, FID CLIENT) } > 
while (hLbox = WinGetNextWindow (hEnumcC ) ) 
{ 


WinQueryClassName (hLbox, sizeof(szClassBuffer), 


szClassBuffer) ; 
/* ade BE oe Te ag Slee en ee en ae *x / 
f* listbox? ad 
/* page ag ogra oy aap tee asta ag es * / 
1f (!strcemp(szClassBuffer, "#7")) 
{ 
ChangeCol (hLbox) ; /* See sample program */ 
break; 
} 


} 


WinEndEnumWindows (hEnumC) ; 


} 


WinEndEnumWindows (hEnum) ; 


For a list of class names see Sec. 2.4. Alternatively, since we know this applica- 
tion we also know the ID of the listbox (see the header file for the THREADS sam- 
ple program, Fig. 12.2), therefore we can use this to obtain the window handle 
directly by using WinWindowFromID, thus avoiding the need for the second 
enumeration loop. However, this may not always be the case, but between con- 
senting applications it is, and so the second enumeration loop becomes: 


Lf ({letremp(szClassBuiter, "Threads." ) } 


{ 
hClient = WinWindowFromlD(hWin, FID CLIENT); 
hLbox = WinWindowFromiID(hClient, ID_LIST); 


10.3. Sample program 


The program in Fig. 11.4 covers both window enumeration and icon handling. 


11 
Icons 


Note: The code in this chapter is relevant for OS/2 version 2.0 only if, in 
the Workplace Shell, you have opted to display your minimized windows 
on the desktop. You will find this option in the OS/2 System -> System 
Setup -> System settings on the Window page. This option applies to 
all minimized windows in your system, but you can override it by changing 
it for each window or object. You will find a Window option on every 
object’s Settings notebook. If you have not opted for this then the icons 
you see on the desktop are not minimized applications but workplace objects 
and have different properties. By default, minimized application windows 
are hidden. This, of course, does not apply to OS/2 version 1.x. 


11.1 Are icons necessary? 


It is not always necessary to define an icon for your application. Some applications, 
for example clocks, may require their window to be painted continually, even when 
minimized. To do this you must ensure that any drawing your application does can 
automatically scale itself to the window size, hence the icon will appear to the 
application to be just a small window. 

If you do use this approach, be careful to avoid the FCF_ICON frame creation 
flag. If you do use it without an icon defined then WinCreateStdWindow will 
fail. Also, note that if you use FCF_STANDARD you automatically include 
PCF _LCON, 

However, having said that, it is not necessary to have an icon, but it is desirable, 
although you may not actually use it when your window is minimized. The reason 
is that when you define an application in Presentation Manager under version 1.x, 
it will use the icon along with the program title in the group to which it belongs; if 
you have not defined one, the default icon is used. Under version 2.0, of course, 
users can supply their own icon. 
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11.2 Changing icon text 


To change the text under an icon for your own application, use WinSetWindow- 
Text to change the frame title: 


hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 
WinSetWindowText (hwndFrame, "Icon Text"); 


However, if you need to change the text under an icon for another application, you 
must first obtain the window handle of its frame window. You do this by enumer- 
ating the windows on the desktop and checking each window for the 
WS_MINIMIZED style. When you have found the relevant window you can use 
its handle in the WinSetWindowText call: 


HENUM hkEnum; 
HWND hWin; 
CHAR szTitle[40]; 


/* IS cog By me ey a pe nny a a ea wv ge eg ea ge an ec a oy a eg eee oe * / 
/* This code puts the text of all minimized applications a 
/* 1nto @ listbox ae 
/* Bap a PS a ta fas care pend he SN tk a tah a ta Tt en Be a he he bah Nag Es pt ak hn an ns Oo * / 


hEnum = WinBeginEnumWindows (HWND_DESKTOP) ; 
while (hWin = WinGetNextWindow (hEnum) ) 
{ 
1£ (WinQueryWindowULong (hWin, QWL_STYLE) & WS_MINIMIZED) 
/* Minimized? */ 


WinQueryWindowText (hWin, sizeof (szTitle), szTitle) ; 


WinSendMsg (WinWindowFromID(hwnd, ID _LISTBOX), 
LM INSERTITEM, MPFROMSHORT (LIT _END) , 
MPFROMP(szTitle)); 


} 


WinEndEnumWindows (hEnum) ; 


11.3 Hiding icon text 


To hide icon text you need the handle of the window that contains the text. It is not 
the frame window handle, although that is the handle you use if you wish to change 
the text. It is the next window in the Z-order that is required. To get this handle you 
use WinQueryWindow with the QW_NEXT code. This should return you a handle 
with the class name of #32765. Once you have this you can hide the window using 
WinShowWindow: 
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case ID_HIDE: 


/* i ane ete texte Meek Sty aad carcasses Peg Sea sh Gases anh nap i eg gas ehcp we poe Racets nay Ely aan ep Sa nie ey ee ad es a a eal Sa * / 
/* Using the frame handle get the next window in the aes 
/* Z-order, that 1s the icon text window dt 3 
/* Sy Rh ape Fs estes ts ae ee fe ee I es ee Se es Ss Se Se * f 


hiconText = WinQueryWindow(hWin, QW_NEXT) ; 
WinQueryClassName (hIconText, sizeof(szClassBuffer), 
szClassBuffer); 


/* Icon text window? */ 
1f (!'strcemp(szClassBuffer, "#32765") ) 
WinShowWindow (hIconText, FALSE) ; 
break; 


In this code it is assumed that hWin, the frame handle of a minimized window, has 
already been assigned. In fact, in the sample program which illustrates this (see Sec. 
11.5), the handles of all the minimized applications are stored in the item handles of 
a listbox. 


11.4 Dynamic update of icon 


If you do not require your application continually to update its window while mini- 
mized, but would still like to convey a state of change to your user when a certain 
event happens, then you can do so by ‘updating’ the icon. You do this by sending 
the frame a WM_SETICON message followed by a WinInvalidateRect. It does 
mean, of course, that you have to provide more than one icon. In fact, using this 
method you could display several icons, one after the other, to achieve a simple 
animated effect. We do this in the following code, where we display a bouncing 
ball whenever the window is minimized. To avoid unnecessary timer processing, 
the timer is not started until the window is about to be minimized and it is stopped 
again when the window is restored: 


static BOOL fDefIcon = TRUE; 
static HPOINTER hiIconl, 
MlechHa : 


case WM_CREATE: 


j* oe ang Set ey MeN perte e  FON SE ST Can ak fee Peet eS Pe eee * 
/* Load our two ball icons */ 
/* Rae rae Fe at AAT Gere a Cae ear REPO re? ae OR ee aed Te ee * / 


hiconl = WinLoadPointer (HWND_DESKTOP, (HMODULE) NULL, 
LD. TCONLI 

hicon2 = WinLoadPointer (HWND_DESKTOP, (HMODULE) NULL, 
LD. TCON2 } 
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break; 


case WM_MINMAXFRAME: 


1f (((PSWP)mp1) ->fl & SWP_MINIMIZE) 
WinStartTimer (WinQueryAnchorBlock (hwnd), hwnd, 1, 500); 
else 
1£ (((PSWP)mp1)->fl & SWP_RESTORE) 
WinStopTimer (WinQueryAnchorBlock (hwnd), hwnd, 1); 
break; 


case WM_TIMER: 


/* Be pa es a lat A ge a ea re a a eg ee ct nn a ne Ve * / 
/* Every half-second replace the icon to producea a 
/* bouncing effect ar 
/* fag ag TN ey ge is af ge ce Og aN ee Eo 8 eg rg oe? neg es * / 


hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 


1£ (fDefIcon) 

WinSendMsg (hwndFrame, WM_SETICON, (MPARAM)hIcon2, 0); 
else 

WinSendMsg (hwndFrame, WM_SETICON, (MPARAM)hIconl1, 0); 


WinInvalidateRect (hwndFrame, NULL, FALSE) ; 
fDefiIcon = !fDefiIcon; 
break; 


11.5 Sample program 


To use all the features in this program you must also run the THREADS sample 
program (see Chapter 12). Our program demonstrates the use of window enumera- 
tion and icon handling. The main window (Fig. 11.1) has six pushbuttons, the first 
two of which only work if THREADS is also running: 


Kill Object Thread This enumerates all the object windows on your desk- 
top looking for an object class name of ThreadsOb}j. Ifit finds it then the pro- 
gram sends it a UM_SUICIDE message to force the thread to exit. If the thread is 
not running a message is displayed. 

Modify Listbox This enumerates all the main windows on your desktop to 
find a window of class Threads. If it finds it then the handle of the listbox in the 
THREADS program is found and the foreground and background colours are 
changed. 

List Minimized Apps This button displays a list of all minimized applica- 
tions in the listbox. If one is selected, its name is copied to the entry field below 
the listbox where it can be modified. 
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Figure 11.1. Window enumeration and icons output. 


With the introduction of the Workplace Shell, a minimized application is not 
necessarily shown as an icon. You must request that minimized windows are dis- 
played on the desktop. You will find this option in the Settings for the System 
which you will find in the System Setup folder which, in turn, is in the OS/2 
System folder. This option is global and so affects all objects on the desktop. 
You can override it for an individual window by changing its Settings. 

This button will not list anything unless you have requested this option. 


® Update IconText After modifying the text, pressing this button causes the 
text to be changed under the icon. 

@ Hide This hides the selected icon text. 

@ Show This reshows the selected icon text. 


If the main application window is minimized, the icon changes into a bouncing 
ball. This is done by starting a timer and alternating the display of two icons. 

The following listings show the program’s header file, Fig. 11.2, resource file, 
Fig. 11.3, and C source file, Fig. 11.4. 
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#include <os2.h> 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
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ID_MATNWND 
LD TITLE 
IDM_ONE 
MI_EXIT 
MI_RESUME 
LD KLGG 
ID_MODIFY 
ID_MIN 
ID_LISTBOX 
ID_LUST 
ID_ENTRY 
ID_UPDATE 
ID_HIDE 
ID_SHOW 
ID_ICON1 
ID_ICON2 


#include "enum.h" 


STRINGTABLE PRELOAD 


200 
ADL 
202 
203 
204 
205 
206 
207 
208 
209 
a0 
24 
Bde 
213 
214 
213 


BEGIN 

ID TITLE, "Window Enumeration and Icons" 
END 
ICON ID_MATNWND enum.ico 
ICON LD LCONL enuml.ico 
ICON ID {CONZ enum2.1ico 
ACCELTABLE ID _MATNWND 
BEGIN 

VK_F3, MI_EXIT, VIRTUALKEY 
END 
MENU ID_MAINWND PRELOAD 
BEGIN 


SUBMENU "E~xit", 


BEGIN 


MENUITEM "~Exit Program\tF3", 
MENUITEM "~Resume Program", 


END 
END 


Figure 11.2. Window enumeration and icons: header file. 


IDM_ONE 


iS a Pa Mis _ TRAT 
MI_ RESUME, MIS_TEXT 


Figure 11.3. Window enumeration and icons: resource file. 
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#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 


#include 
#include 
#include 
#include 


MRESULT EXPENTRY MainWndProc (HWND, ULONG, MPARAM, MPARAM) ; 


VOID 
VOID 


INCL_WINWINDOWMGR 
INCL_WINFRAMEMGR 
INCL_WINSWITCHLIST 
INCL_WINSYS 
INCL_WINBUTTONS 
INCL_WINLISTBOXES 
INCL _WINENTRYFIELDS 
INCL_WINTIMER 
INCL_WINPOINTERS 
INCL_WINDIALOGS 


UM_SUICIDE WM_USER+4 


<os2.h> 
<string.h> 
<stdlib.h> 
"enum. h" 


ModifyLbox (VOID) ; 
ChangeCol (HWND) ; 


fFRERLERRRE RK ERK ESR MSR ELL RELA KAKRERRARAAERE EKER RE AAA KH J 


INT main 


{ 
HAB 


HMQ 
HWND 


QMSG 
ULONG 
CHAR 


(VOID) 


hab; 

hmq; 
hwndFrame, 
hwndClient; 
Qmsg; 
flFrameFlags; 
szTitle[80]; 


SWCNTRL PomEntry; 


LONG 


ix. Dere, 
lyY_ Bot, 
lHeight, 
1Width, 
1ScrHeight, 
1ScrwWidth; 


hab = WinInitialize (0); 
hmq = WinCreateMsgQueue (hab, 0); 





Figure 11.4. Window enumeration and icons: C source file. Continues. 
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WinRegisterClass(hab, "Enum", MainWndProc, 
CS SIZEBREDRAW, 0) ; 


WinLoadString (hab, (HMODULE)NULL, ID_TITLE, 
sizveot(szTitle), szTitle) ;: 


flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF MENU | 
FCF _DLGBORDER | FCF_MINBUTTON | 
FCF ACCELTABLE | FCF ICON; 


hwndFrame = WinCreateStdWindow(HWND_DESKTOP, 0, 
&flFrameFlags, "Enum", 
szTitle, 0, (HMODULE)NULL, 
ID_MAINWND, &hwndClient) ; 


1Scrwidth = WinQuerySysValue (HWND_DESKTOP, SV_CXSCREEN) ; 
1ScrHeight = WinQuerySysValue (HWND_DESKTOP, SV_CYSCREEN) ; 


1Width 400; 
nel ght = 300; 


1X Left = (lScrWidth - 1Width) / 2: 
1Y_Bot = (lScrHeight - lHeight) / 2; 


WinSetWindowPos (hwndFrame, (HWND)NULL, 1X Left, 1Y Bot, 
lWidth, lHeight, SWP_SIZE | SWP_MOVE | 
SWP_SHOW | SWP_ACTIVATE) ; 


WinCreateWindow (hwndClient , WC_BUTTON, 
"Kill Object Thread", WS_VISIBLE, 10, 10, 
180, 30, hwndClient, HWND_TOP, ID KILL, 0, 0); 


WinCreateWindow (hwndClient, WC_BUTTON, "Modify Listbox", 
WS_VISIBLE, 200, 10, 180, 30, hwndClient, 
HWND_TOP, ID_MODIFY, 0O, 0); 


WinCreatewindow (hwndClient , WC_BUTTON, 
"List Minimized Apps", WS_VISIBLE, 10, 50, 
180, 30, hwndClient, HWND TOP, ID MIN, 0, 0): 


WinCreateWindow (hwndClient, WC_LISTBOX, NULL, WS_VISIBLE, 
10, 130, 300, 100, hwndClient, HWND_BOTTOM, 
1D DLISTBOxX, 0, Q): 


Figure 11.4. Window enumeration and icons: C source file. Continues. 
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WinCreateWindow (hwndClient, WC_ENTRYFIELD, NULL, 
WS_VISIBLE | ES MARGIN, 10, 90, 250, 30, 
hwndClient, HWND_ BOTTOM, ID_ENTRY, 0O, 0); 


WinCreateWindow (hwndClient, WC_BUTTON, "Hide", 
WS. VISIBLE, 270, 90, 50, 30, 
hwndClient, HWND_TOP, ID HIDE, 0O, 0); 


WinCreateWindow (hwndClient, WC_BUTTON, "Show", 
WS VISIBLE, 330, 90, 60, 30, hwndClient, 
HWND_TOP, ID_SHOW, O, OQ); 


WinCreateWindow(hwndClient, WC_BUTTON, 
"Update Icon Text", WS_VISIBLE, 200, 
50, 180, 30, hwndClient, HWND_TOP, 
LDUPDATE, 0, OQ) % 


/* Add to window list */ 


PomEntry.hwnd = hwndFrame; 
PomEntry.hwndiIcon = (HWND) NULL; 
PomEntry.hprog = (HPROGRAM) NULL; 
PgmEntry.idProcess = (PID) NULL; 
PgmEntry.idSession = (ULONG) NULL; 
PomEntry.uchVisibility = SWL_VISIBLE; 
PomEntry. fbJump = SWL_JUMPABLE; 


strcepy (PgmEntry.szSwtitle, szTitle) ; 
WinAddSwitchEntry (&PgmEntry) ; 


while (WinGetMsg(hab, &gqmsg, (HWND)NULL, 0, 0)) 
WinDispatchMsg(hab, &qmsqg) ; 


/* ee Og ae ee Ne Se eae ee ea eg Ie re NTE Tey ay ee Oe CRE OEY ae TORE ws 
/* Remove from window list and clean up */ 
/* Pa eR as ti a ti peg in eel ee ee ee * / 


WinRemoveSwitchEntry (WinQuerySwitchHandle(hwndFrame, 0)); 


WinDestroyWindow (hwndFrame) ; 
WinDestroyMsgQueue (hmq) ; 
WinTerminate (hab) ; 

return 0; 


} 


[RRRKRKRKKKEKKKKKKKKKKKKKKKKK REKARAKKKKKKRAEKKEEREKEKREE EE RARER / 


Figure 11.4. Window enumeration and icons: C source file. Continues. 
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MRESULT EXPENTRY MainWndProc (HWND hwnd, ULONG msg, MPARAM mp1, 


MPARAM mp2) 
{ 

HENUM hEnum; 

HWND hWin, 
hFrame, 
hTitle; 

CHAR szClassBuffer[20], 
szMsgText [30], 
sezTitle[40] ; 

BOOL fObj Found; 

static SHORT sildx: 

static HPOINTER hIconl1, 

AiconZ +; 
static BOOL fPpeficon = TRUE; 


Switch (msg) 
{ 
case WM_CREATE: 
hiconl = WinLoadPointer (HWND_DESKTOP, 


(HMODULE) NULL, ID_ICON1) ; 
hicon2 = WinLoadPointer (HWND_DESKTOP, 


(HMODULE) NULL, ID_ICONZ2) ; 
break; 


case WM_MINMAXFRAME:: 
1£ (((PSWP) mp1) ->fl & SWP_MINIMIZE) 
WinStartTimer (WinQueryAnchorBlock (hwnd) , 
pwnd, 1, 500): 
else 
1f (((PSWP) mp1) ->fl & SWP_RESTORE) 
WinStopTimer (WinQueryAnchorBlock (hwnd) , 
hwnd, 1); 
break; 


case WM_TIMER: 
hFrame = WinQueryWindow (hwnd, QW_PARENT) ; 


1£ (£fDefIcon) 
WinSendMsg (hFrame, WM_SETICON, (MPARAM)hIcon2, 0); 


Figure 11.4. Window enumeration and icons: C source file. Continues. 
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else 
WinSendMsg (hFrame, WM_SETICON, (MPARAM)hIcon1, 


0} 


WiniInvalidateRect (hFrame, NULL, FALSE) ; 
fDeficon = !£DefIcon; 
break; 


case WM_CONTROL: 
Switch (SHORT1FROMMP (mp1) ) 
{ 
case ID _LISTBOX: 
Switch(SHORT2FROMMP (mp1) ) 
{ 
case LN_SELECT: 
sIdx = (SHORT) WinSendDlgItemMsg (hwnd, 
LD_LISTBOX, LM _QOUERRYSELECTION, U, 0}: 
WinSendDlgItemMsg (hwnd, ID_LISTBOxX, 
LM OUBRYLTEMT EXT , 
MPFROM2SHORT (sIdax, 
sizeof (szTitle)}, 
MPFROMP(szTitle) ); 


L£ (sidx f= LIT NONE) 
WinSetWindowText (WinWindowFromID (hwnd, 
ID _ ENTRY), szTitle) ; 


break; 


default: 
break; 
} 
break; 


} 


break; 


case WM_COMMAND: 
Switch (SHORT1IFROMMP (mp1) ) 
{ 
case ID_KILL: /* Kill object thread if running */ 
fObj Found = FALSE; 
hEnum = WinBeginEnumWindows (HWND_OBJECT) ; 


Figure 11.4. Window enumeration and icons: C source file. Continues. 
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while (hWin = WinGetNextWindow (hEnum) ) 
{ 
WinQueryClassName (hWin, 
sizeof (szClassBuffer), szClassBuffer) ; 
if (!stremp(szClassBuffer, "ThreadsObj") ) 


WinPostMsg(hWin, UM_SUICIDE, 0, 0); 
fObj Found = TRUE; 


WinEndEnumWindows (hEnum) ; 


1f£ (!£0bj Found) 


strcpy (SzMsgText, 
"Object thread not running") ; 
DosBeep(1000, 100); 
} 
else 
strcpy (szMsgText, "Object thread killed"); 


WinMessageBox (HWND_DESKTOP, hwnd, szMsgText, 
"Window Enumeration Sample Program", 0, 
MB INFORMATION | MB_OK | MB MOVEABLE ) ; 
break; 


case LD MODIFY: 
/* Modify listbox in THREADS program */ 
ModifyLbox(); 
break; 


case ID MIN: /* List minimized applications */ 
WinSendMsg (WinWindowFromID (hwnd, 
ID_LISTBOX), LM _DELETEALL, 0, 0); 

WinSetWindowText (WinWindowFromID (hwnd, 
ID_ENTRY), "")3 

sldx = QU» 

hEnum = WinBeginEnumWindows (HWND_DESKTOP) ; 

while (hWin = WinGetNextWindow (hEnum) ) 


Figure 11.4. Window enumeration and icons: C source file. Continues. 
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1£ (WinQueryWindowULong(hWin, QWL_STYLE) & 
WS_MINIMIZED) 


WinQueryWindowText (hWin, 
sizeof(szTitle), szTitle); 
WinSendMsg (WinWindowFromID (hwnd, 
ID_LISTBOX) , LM_INSERTITEM, 
MPFROMSHORT (LIT_END) , 
MPFROMP(szTitle)); 


i * ye fan a hy ty a hae ok foe ee ES) A BEN ee Gehan fe * / 
/* Save handle for each window * / 
}* ae ee py EIT aD Ae OE TY ED SOT ERT See MO Ny PS = / 


WinSendMsg (WinWindowFromID (hwnd, 
ID_LISTBOX} , 
LM SETITEMHANDLE, 
MPFROMSHORT (SIdx), 
MPFROMHWND (hWin) ) ; 
SIdx++; 


} 
WinEndEnumWindows (hEnum) ; 
break; 


case ID_UPDATE: /* Change icon text */ 
WinQueryWindowText (WinWindowFromID (hwnd, 
ID_ENTRY), sizeof(szTitle), szTitle) ; 


hWin = (HWND) WinSendMsg (WinWindowFromID 
(hwnd, ID_LISTBOX), 
LM_QUERYITEMHANDLE, 
MPFROMSHORT (sSIdx) , 
QO); 
WinSetWindowText (hWin, szTitle); 
WinSendMsg (WinWindowFromID (hwnd, 
LO LISTBOx), LM_SETITEMTEXT, 
MPFROMSHORT (sIdx), 
(MPARAM) szTitle) ; 
break; 


Figure 11.4. Window enumeration and icons: C source file. Continues. 
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case ID _ HIDE: 
case ID_SHOW: 
hWin = (HWND)WinSendMsg (WinWindowFromID 
(hwnd, ID_LISTBOX), 
LM QUERYITEMHANDLE, 
MPFROMSHORT (sSIdx) , 
OF 
hTitle = WinQueryWindow(hWin, QW_NEXT) ; 
WinQueryClassName (hTitle, sizeof 
(szClassBuffer), szClassBuffer) ; 
“Lf (lstremp(szClassBurter, “#32765"}) 
/* Icon text window? */ 


1£ (SHORT1FROMMP (iol) == ID_HIDE) 
WinShowWindow (hTitle, FALSE) ; 
else 


WinShowWindow (hTitle, TRUE) ; 
} 


break; 


case MI_EXIT: 
WinPostMsg (hwnd, WM_QUIT, 0, 0); 
break; 


default: 
break; 


} 


break; 


case WM_ERASEBACKGROUND: 
return (MRESULT) TRUE; 
} 


return WinDefWindowProc (hwnd, msg, mpl, mp2); 


[ERKRRKKEKRKKKKEKREKEKREKEREKREER EKER EKREKRKEKREKRE KERR KEKEKEKKEKEKKEKKEKEKEKEK / 


VOID ModifyLbox (VOID) 


{ 
HENUM hEnum, 
hEnumcC ; 


Figure 11.4. Window enumeration and icons: C source file. Continues. 


Icons 


HWND hWin, 

hLbox; 
CHAR szClassBuffer [20]; 
BOOL fAppFound; 


fAppFound = FALSE; 

hEnum = WinBeginEnumWindows (HWND_DESKTOP) ; 
while (hWin = WinGetNextWindow (hEnum) ) 

{ 


WinQueryClassName(hWin, sizeof (szClassBuffer) , 
szClassBuffer) ; 


1f (!strcemp(szClassBuffer, "#1")) 


/* Frame? 
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ef 


/* Get class name */ 


WinQueryClassName (WinWindowFromID(hWin, FID CLIENT), 
sizeof (szClassBuffer), 
szClassBuffer) ; 


if (!stremp(szClassBuffer, "Threads") ) 


/* Qur class? 


/* SE a Nk iS fast cy a ee es a ge Ro Ng eg ey NS sys oe mp tk eee * / 
/* If we already knowthe IDof the listbox wecan */ 
/* use it to get the handle directly rather wy 
/* than enumerate. mf 
f* =f 
/* ChangeCol (WinWindowFromID (WinWindowFromID mf 
jf * (hWin, FLD CLIENT), ID LIst) }: * 
/* ald 
/* ec I Es ag a fa Ea a a a a Fg a ge es rhe et ted ek teh ge es * / 


hEnumC = WinBeginEnumWindows (WinWindowFromID(hWin, 


FID CLIENT) } ; 
while (hLbox = WinGetNextWindow (hEnumcC) ) 


{ 
WinQueryClassName (hLbox, sizeof (szClassBuffer), 
szClassBuffer) ; /*------------- 
if (!stremp(szClassBuffer, "#7") }) /*  Listbox? 
{ /* Ss Se ese ete ek 


Figure 11.4. Window enumeration and icons: C source file. Continues. 


wr 
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ChangeCol (hLbox) ; 
fAppFound = TRUE; 
break; 


} 


WinEndEnumWindows (hEnumC) ; 


} 
WinEndEnumWindows (hEnum) ; 
if (!£AppFound) 
{ 
DosBeep (1000, 100); 
WinMessageBox (HWND_DESKTOP, (HWND) NULL, 
"THREADS not running", 
"Window Enumeration Sample Program", 
0, MB_INFORMATION | MB_OK | MB MOVEABLE ) ; 


return: 


[RRRRKRKKKKKEKKKKEKKKKKKKKKKKAKKKKKKKKKKKKKKKKKKKKKKKKKK KKK / 


VOID ChangeCol (HWND hLbox) 
{ 
LONG 1FColour, 
IBColours 
static BOOL fRedBgnd = FALSE; 


if (fRedBgnd) 


IFcolour = CLR RED; 
1BColour = CLR_YELLOW; 
} 
else 
{ 
LFColour = CLR _ YELLOW; 
LBCoLour = CLR_RED>: 
} 
WinSet PresParam(hLbox, PP_BACKGROUNDCOLORINDEX, 
sizeof(lBColour), &1BColour) ; 


Figure 11.4. Window enumeration and icons: C source file. Continues. 
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WinSetPresParam(hLbox, PP_FOREGROUNDCOLORINDEX, 
sizeof (lFColour), &lFColour); 

fRedBgnd = !fRedBgnd; 

Frecurn; 


Figure 11.4. Window enumeration and icons: C source file. Concluded. 


12 
Threads and timers 


If you need to do some lengthy processing in your program and you code it directly 
in your window procedure, performance will suffer as a result. The reason is that in 
Presentation Manager there is only one system message queue to handle all user 
input, keyboard and mouse, and until your program completes the processing of 
its current message and returns control to Presentation Manager, the next 
message in this queue 1s held. It is therefore essential that all Presentation Manager 
programs obey the ‘tenth of a second’ rule, that is, process the message and return 
control to Presentation Manager in less than one tenth of a second. So, to over- 
come this problem for lengthy processing you must start a second thread in which 
to do it, enabling control to be passed back to Presentation Manager. This tech- 
nique is used later in this chapter to create a three-minute timer. The thread 
does nothing but sleep for three minutes and then posts a message back to the 
client window at the end of that period. It then goes back to sleep for a further 
three minutes. 


12.1 Creating a thread 


The process for starting a thread in 32-bit OS/2 has been improved and made easier 
to use. It is now possible to pass a parameter to it, usually a pointer to a parameter 
block; the system now allocates and deallocates the stack for you and it is possible 
to create a thread in a suspended state. This obviously means that the parameter 
list for DosCreateThread has changed. It is now: 


Pointer to the thread ID (output) 
Pointer to the thread routine (input) 
Thread argument (input) 

Thread flags (input) 

Stack size (input) 


To start a thread in a suspended state, ensure bit 0 of the thread flags is set to 1. 
Setting it to 0 will cause the thread to start immediately. If you start a thread in its 
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suspended state then you must call DosResumeThread to initiate its execution. 
Bear in mind that if you call any C library functions in a secondary thread 
then you should use _beginthread and _endthread rather than 
DosCreateThread. 
To start a thread in 32-bit: 


VOID LTimer (VOLD) ;} J/*® Timer threed * / 
TLD tidLTimer; f/* Thread ID * / 
/* Ne a a ee ce ha En SE et, bo ees * / 
/* Create timer thread a 
/* Se AE wag te tne ee ye et a een oh ee ek eh et * / 


DosCreateThread (&tidLTimer, (PFNTHREAD)LTimer, 0, 0, 4096); 
and in 16-bit: 


VOID LTimer (VOID) ; /*Timerthread */ 
PLD tidLTimer; /* Thread ID ae 
UCHAR StackLT [4096]; /* Thread’s stack */ 
ae Sat 5 ee a i Je eat Ba A ed hae, oe ee * 
/* Create timer thread */ 
/* ft eh, Bae facet eh A poe a hed faa inst ed Pree a pa ye ng be eed * f 


DosCreateThread((void far *)LTimer, &tidLTimer, 
StackLT+sizeot (StackLT) }; 


12.2 Communicating with the main thread 


Having started a secondary thread, one of the most important things we will want 
to do is communicate with the main thread. Now, we have three options open to us 
when we create a thread: 


1. A thread without a message queue 
This thread only uses functions which do not need a message queue. It is the 
simplest thread to implement. It can, however, use WinPostMsg. 


2. A thread with a message queue but without a message processing loop 

If you are going to use WinSendMsg, or indeed most Win... functions, in the 
thread then you must have a message queue, even though the thread may not 
process any messages, in which case a message processing loop is not required. 


3. A thread with a message queue and a message processing loop 

If you need to process messages then you need both a message queue and a message 
processing loop. If the thread does not have a user interface then you can create an 
object window and use its window procedure to process the messages; otherwise, 
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create an ordinary window with controls and use its window procedure in the usual 
manner. 
Let us now look at these in turn. 


12.2.1 Thread without a message queue 


Section 12.1 showed how to start a thread called LTimer. Let us now take a look 
at this thread. Its sole purpose is to sleep for three minutes, wake up to tell the main 
thread that three minutes have elapsed and go back to sleep again. To do this, we 
call DosSleep, and on waking call WinPostMsg to post back a user message, 
UM_THREAD TIMER, to the main client window. The window handle for the 
client is passed to the thread as a parameter. Ensure you use _System linkage on 
the function definition, otherwise the parameter will not be passed. 
For a thread with no message queue: 


VOID _System LTimer (VOID * parm) 


{ 
HWND hwndClient; 


hwndClient = (HWND) parm; 

while (TRUE) 

{ 
DosSleep (180000) ; /* Wait for 3 minutes */ 
WinPostMsg(hwndClient, UM_THREAD TIMER, O, 0); 


} 


This is very simple, but it could just as well have been an extremely complex bit of 
code taking minutes to execute. If we had put this in our main window procedure 
then when this code executed, it would have been goodbye to the user interface. Try 
putting a call to DosSleep in your own program’s window procedure to see the effect! 


12.2.2. Thread with a message queue but without a message 
processing loop 


In the previous example we used WinPostMsg, which does not require the pres- 
ence of a message queue. However, if you use WinSendMsg, or indeed most other 
Win... calls, then you must create a message queue, that is, you must issue a 
WinInitialize followed by a WinCreateMsgQueue. However, it is not 
necessary to have a message processing loop in the thread unless you intend to 
create windows in it. Let us now look at a thread with a message queue. 

This type of thread will probably be used most often. Consider a client window 
which contains a listbox filled with data from a database, or some other source. 
Now, it is quite likely that this could take some time to fill, and so if it was done 
in the main window procedure then the user interface would suffer performance 
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degradation during this period. To overcome this degradation we must start a 
thread similar to the following: 


VOID ListBox (VOID) 
{ 
HAB habThread; 
HMO hmqThread; 


habThread = WinInitialize(0); 
hmgqThread = WinCreateMsgQueue (habThread, 0); 
WinCancelShutdown (hmqThread, TRUE) ; 


WinSendMsg (WinWindowFromID(hwndClient, ID_LIST), 
LM_DELETEALL, 0, 0); 
/* KKKKKKKKKKKKKKKKKEKKKKEKKKKEKKKKEKKKKEKKKKEKKKEKKKKKKK KE / 
; /* Do some long processing, e.g. fill a listbox from ot J 
; /* adatabase an 
[RRR KRKKKEKKEKKEKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKEKKKKKKKEKKKK K / 
WinDestroyMsgQueue (hmgqThread) ; 
WinTerminate (habThread) ; 
DosExit(d, 0): 


One important point to note for a thread which does not have a message 
processing loop is that you must call WinCancelShutdown after creating your 
message queue, otherwise if you request shutdown while the thread is running, 
the system may hang, waiting for your thread to reply to the WM_QUIT message 
it has been sent. This is unlikely in our example, as the thread is not running con- 
tinually and so shutdown would not normally be requested. 

It is assumed that the window handle, hwndClient, has already been obtained, 
by either passing it as a parameter, or, since we have a message queue, using 
window enumeration. In fact, in the sample program (see Sec. 12.6), window enu- 
meration has been used. 

You should note here that if you intend to use a thread of this sort many times in 
your own program, it is more efficient to start the thread at the beginning in 
its suspended state and call DosResumeThread whenever you need it. Once it 
completes its processing you can call DosSuspendThread to stop it temporarily. 


12.2.3. Thread with a message queue and a message processing loop 


Sometimes you will have a thread that needs to process window messages, 1n which 
case you must supply a window procedure in which to do it, and hence supply a 
message processing loop. In the following example we have a thread which 
processes messages but which does not require any interaction with the user. For 
this type of thread we use an object window, that is, one that can send and receive 
messages but does not appear on the screen and so cannot have a user interface: 
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VOID Obj Thread (VOID) WOW peat at la tan ee ea a is cas eae asters Beet * / 
{ /* Object window thread + window thread */ 
HAB habObj; fo. cisatuoimsss naan see eee eRe es * / 


HMQ hmqObj; 
QMSG qmsg; 


habObj = WinInitialize(0); 
hmqObj = WinCreateMsgQueue (habObj, 0); 


WinRegisterClass(habObj, "ThreadsObj", ObjWndProc, 0, 0); 


WinCreateWindow (HWND_OBJECT, "ThreadsObj", "", 0, 0, 0, 0, 
0, 0, HWND_ BOTTOM, ID OBJECT, 0, 0); 


while (WinGetMsg (habObj, &qmsg, (HWND) NULL, 0, 0) ) 
WinDispatchMsg(habObj, &qmsqg) ; 


WinDestroyMsgQueue (hmqg0Obj) ; 
WinTerminate (habObj); 
Doskxit (0, O)s 

Tecvurn; 


} 


[RKRKKKKKKEKKKKKKKEKEEKKEKKKEKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKK SK / 


MRESULT EXPENTRY ObjWndProc (HWND hwnd, ULONG msg, MPARAM mp1, 
MPARAM mp2 ) 


Switch (msg) 


{ 


[RRRKRKKERKKKEKRKEKKEKEKRKEREKEKEKKEKKEKKEKE / 


/* Process window messages as usual ca 
[RRKKKKKKKKKKKKKKKKKKKKK KK KKK KKK KK KKK / 


} 


return WinDefWindowProc (hwnd, msg, mpl, mp2); 


12.3 Killing a thread (32-bit) 


A new function has been added to OS/2 that enables a thread to be killed, 
DosKillThread. If you use this function, be aware not only that the thread is 
killed instantly and so cannot perform any clean-up operations, but also that 
the thread must have been started by the current process. (Personally, I prefer to 
kill a thread by sending it a suicide message, see Sec. 12.4. At least it is then 
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allowed to tidy its affairs before departing this world, rather than being brutally 
murdered.) However, there may be occasions when it is perfectly safe to kill a 
thread and so the introduction of this function will prove useful. The following 
example assumes that the thread ID has already been assigned: 


Static TID tidLTimer ; /* Thread ID wf 


case ID_KILL: 
DosKillThread(tidLTimer) ; {* 32-bit only */ 
break; 


12.4 Killing a thread (16-bit and 32-bit) 


Although it is possible to suspend a thread, you cannot kill a thread in 16-bit OS/2. 
Instead, you must devise some method whereby the thread ‘commits suicide’, that 
is, it is forced to issue a DOoSExit. Two methods are possible here: 


e By a global variable 
e By sending the thread a message 


Let us look at the global variable method first. In the following example, while 
the flag £ThreadActive is TRUE, whenever the thread awakes from its sleep it 
will process; if the flag is then set to FALSE in some other thread, after its three- 
minute sleep it will fall through the loop and exit: 


VOID LTimer (VOID) /* Non-message queue thread * / 
{ 
while (fThreadActive) 
{ 
DosSleep (180000) ; /* Wait for 3minutes oe i 
1£ (fThreadActive) 
{ 


[REKKKKKKKEKKEKKEKKKEKEKE / 


/* Do some processing ae 
[RRRKRKKKKKKKEKKKKKEKKKEKE / 
} 


} 
DosExit(0, 0): /* Kill the thread wy 


If we use the message sending process to kill a thread then that thread must have 
a message queue and a message processing loop. If we are going to use the window 
procedure solely to make the thread ‘commit suicide’, and therefore have no user 
interface, we can use an object window. When the time comes to kill the thread, we 
need to obtain the handle of the object window, using enumeration, and then send 
it a user message, UM_SUICIDE. When the thread’s window procedure receives 
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this, it posts itself a WM_QUIT message and hence exits: 


#define UM SUICIDE WM_USER+4 /* Define user message */ 

| a ap pra hh ny ce a ag ah ae pe eh gg ee ee Sep ae es ee ge ae ge ay ee A ee * / 

/* Inthe main thread’s window procedure. aa 

/* Be ES Ng Es a ah Na a a Fe hag a ae NS Se a a ag ap * / 

case ID KILL THREAD: /*------------- = of 
WinSendMsg (hwndObject, UM_SUICIDE, 0,0);/* Killthread */ 
break; jf Rada a mint saw ae 5 


[RRR KKK KKKKKKKKKKKKKKEKKEKKKKEKKKKKEKKKKKKKKKKKKKKK KKK KKK KKK / 


/* a a a eg ee pk ae gn ne ee pees Re ee eos a eee * / 
/* Inthe thread's window procedure. a | 
jf * a a eas fen ce sans ag pp ee a peas gc pa ay a a ae a a ee ees See * / 


case UM_SUICIDE: 
WinPostMsg (hwnd, WM_QUIT, 0, 0); 
break; 


12.5. Setting a timer for longer than 65 seconds 


Using the 16-bit WinStartTimer the time interval is defined in milliseconds as a 
USHORT, whereas in the 32-bit version it is defined as a ULONG. However, for 
OS/2 V2.0 it still uses a USHORT internally and will not therefore accept a 32-bit 
value. This will change when Presentation Manager is fully 32-bit. In the mean- 
time, it obviously restricts you to a time interval of a little over 65 seconds, which 
is probably all right for most purposes, but occasionally you may need an interval 
greater than this. Two ways of doing this are: 


e WinStartTimer 
e DosSleep 


Using WinStartTimer define a static variable for the required time period, 
three minutes in this case, and at a convenient place in your program start a one 
minute timer. When your window procedure receives a WM_TIMER message, decre- 
ment the time period and check for zero. If it is zero then our time is up and we can 
do the necessary processing and reset the time period: 


static USHORT usTimePeriod = 3; /* 3minute time interval */ 
WinStartTimer (hab, hwnd, 1, 60000 /* 1 minute timer * / 


LEREXKEKEKEKREEEEERKE ER KEEEERRERKEREREKKR ERE REE EREKERRE EEK SE 


case WM_TIMER: 
1£ (-usTimePeriod == 0) /* 3minutes elapsed? if 
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{ 
DosBeep(100, 100); 
DosBeep (300, 100); 
DosBeep (500, 100); 
DosBeep (700, 100); 
usTimePeriod = 3; 

} 

break; 


Using DosSleep the time interval is a ULONG and so gives us over 49 days. 
However, we must not use DosSleep in our window procedure otherwise per- 
formance will suffer, so we start another thread to do the sleeping. When it wakes 
up, it can send a WM_USER message to the client window to trigger the processing, 
or it may even be possible to do it in the timer thread. This ‘thread with no message 
queue’ is covered in Sec. 12.2.1. 


Libya — ae 
Morocco. 
Nigeria 





Figure 12.1. Threads and timers output. 


12.6 Sample program 


This program illustrates the use of multiple threads and timers in a Presentation 
Manager program. The main window (Fig. 12.1) on startup has four pushbuttons: 


e 3MinuteTimer This causes a timer to start and a series of beeps to sound 
every three minutes. 
e 3MinuteThread This starts a thread with no message queue and ‘unhides’ 
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another pushbutton which can be used to kill the thread. Again, every three 
minutes a series of beeps will be heard. Pressing the Kil 1 button causes a Dos- 
KillThread call to be made, thus ending the thread. 


Fill Listbox This starts another thread which fills the listbox and then 
ends, it does not continue running. However, since it communicates with the 
client window using WinSendMsg, this thread requires a message queue. Just to 
make this a long process 26 items are inserted into a listbox 100 times in the sample 
program. However, only about 65 groups are inserted, since the listbox limit of 64 kb 
is reached at this point. When the thread starts, this button is disabled and remains 
so until the thread completes. Only then can it be pressed again. 


Note that the 64 kb listbox limit will not be lifted until the Presentation Manager 


is fully 32-bit. 


Start Object Thread The last button starts a thread which has both a 
message queue and a message processing loop. It creates an object window 
which is used to receive a message telling it to commit suicide. To initiate 
this message another Kill button is shown. When the thread dies it clears 
the listbox and sounds a series of beeps. 


The following listings show the program’s header file, Fig. 12.2, resource file, 


Fig. 12.3, and C source file, Fig. 12.4. 


#define ID MAINWND 200 


#define ID_TITLE 201 
#define IDM ONE 202 
#define MI_EXIT 203 
#define MI_RESUME 204 
#define ID TIMER 205 
#define ID THREAD 206 
#define ID KILLER 207 
#define ID LTHREAD 208 
#define ID_LIST 209 
#define ID OBJECT 210 


#define ID OBUTTON Buh 
#define ID KOBUTTON 212 


Figure 12.2. Threads and timers: header file. 


finclude <os2.h> 
#include "threads.h" 


STRINGTABLE PRELOAD 
BEGIN 


ID TITLE, "Threads and Timers" 


Figure 12.3 Threads and timers: resource file. Continues. 


END 


ICON 


Threads and timers 


ID _MAINWND threads.ico 


ACCELTABLE ID_MAINWND 


BEGIN 
VE_F3, MI_EXIT, VIRTUALKEY 
END 
MENU ID_MATNWND PRELOAD 
BEGIN 
SUBMENU "Er~xit", IDM_ONE 
BEGIN 
MENUITEM "~Exit Program\tF3", MIL_ EXIT, MIS_TEXT 
MENUITEM "~Resume Program", MI RESUME, MIS_TEXT 
END 
END 


Figure 12.3. Threads and timers: resource file. Concluded. 


#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 


#include 
#include 
#include 
#include 


MRESULT EXPENTRY MainWndProc (HWND, ULONG, MPARAM, MPARAM) ; 


MRESULT EXPENTRY ObjWndProc (HWND, ULONG, MPARAM, MPARAM) ; 


VOID 
VOID 
VOID 
HWND 


BOOL 


INCL_WINWINDOWMGR 
INCL _WINFRAMEMGR 
INCL_WINSWITCHLIST 
INCL_WINSYS 

INCL _WINTIMER 
INCL_WINLISTBOXES 
INCL_DOSPROCESS 


UM_3_MINUTES_UP WM_USER 

UM_ENABLE KILL3MIN_ BUTTON WM_USER+1 

UM_ENABLE START3MIN_ BUTTON WM_USER+2 

UM_ENABLE LISTBOX_ BUTTON WM_USER+3 

UM SUICTDE WM_USER+4 
<os2.h> 


45trang.H> 
4steaio..ii 
"threads.h" 


System LTimer (VOID * ULONG) ; 
ListBox (VOID) ; 
ObjThread (VOID) ; 
GetClient (VOID) ; 


fThreadActive; 


Figure 12.4 Threads and timers: C source file. Continues. 
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static PSZ szCountry |] = {"Austria", "Belgium", “Canada”, “Denmark", 
“EOVDG" , "Finland", "Greece", "Hungary", 
finde”, "Japan", "Kenya", "Libya", 
"Morocco", "Nigeria", "Oman", "Peru", 
YOe cal; "Romania", "Spain", “Turkey", 
"Uruguay", "Venezuela", "Wales", 
"Xanxere", "Yemen", "Zambia"}; 


[ERRRRKREKEKKEKKEREKEKEKREKERKEKEKEKEKRERRERKEKKR KE REREREREKEKEKKRKEKEKEKEKEE / 


INT main (VOID) 
{ 


HAB hab; 

HMO hmq; 

HWND hwndFrame, 
hwndClient; 

OMSG qmsg}; 

ULONG flFrameFlags; 

CHAR szTitle[80]; 

SWCNTRL PomEntry; 

LONG 1X _ Left, 
LY __BOt ; 
lHeight, 
1Width, 
1ScrHeight, 
LSscerwigdehs 


[RRERERERESRE KRRKEAKEREE ERE EREREREKERERE EEEERE KE REAR KARE RRERE f/f 
hab = WinInitialize(0O); 
hmg = WinCreateMsgQueue (hab, 0); 


WinRegisterClass(hab, "Threads", MainWndProc, CS_SIZEREDRAW, 0); 


WinLoadString(hab, (HMODULE) NULL, ID_TITLE, 
sizeof (szTitle), szTitle); 


flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF_MENU | 
FCF_SIZEBORDER | FCF_MINMAX | FCF_ACCELTABLE | 
PCr ICON; 


hwndFrame = WinCreateStdwindow (HWND_DESKTOP, 0, &flFrameFlags, 
‘Threads’, szTitile, 0, 
(HMODULE) NULL, ID _MAINWND, 
&hwndClient) ; 


1ScrWidth = WinQuerySysValue (HWND_DESKTOP, SV_CXSCREEN) ; 
1ScrHeight = WinQuerySysValue (HWND_DESKTOP, SV_CYSCREEN) ; 
lWidth = 400; 
lHeight = 300; 


Figure 12.4 Threads and timers: C source file. Continues. 
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1X Left = (lScrWidth - 1Width) /2; 


1Y Bot = (1ScrHeight - lHeight) / 2; 
jf me as fe ai etn Ok pe vas a5 i ae es a a ee a gh * / 
/* Startup in foreground */ 
/* lace aca ah ae a a ee i ly ay a ee eS * / 


WinSetWindowPos (hwndFrame, 0, 1X_Left, 1Y_ Bot, lWidth, lHeight, 
SWP_SIZE | SWP_MOVE | SWP_SHOW | SWP_ACTIVATE) ; 


WinCreateWindow (hwndClient, WC_BUTTON, "3 Minute Timer", 
WS VISTBLE, 10, 210, 180, 30, hwnodClient, 
HWND_TOP, ID TIMER, O, QO); 


WinCreateWindow(hwndClient, WC_BUTTON, "3 Minute Thread", 
WS_VISIBLE, 10, 170, 180, 30, hwndClient, 
HWND_TOP, ID THREAD, 0O, 0); 


WinCreateWindow(hwndClient, WC_BUTTON, "Kill 3 Minute Thread", 0, 
200, 170, 180, 30, hwndClient, HWND_TOP, 
1D KILLER, Oy 0}; 


WinCreateWindow(hwndClient, WC_BUTTON, "Fill Listbox", 
WS_VISIBLE, 10, 130, 180, 30, hwndClient, 
HWND_TOP, ID_LTHREAD, 0, 0); 
WinCreateWindow(hwndClient, WC_LISTBOX, NULL, WS_VISIBLE, 
10, 10, 150, 100, hwndClient, 
HWND_BOTTOM, ID_LIST, 0, 0); 
WinCreateWindow(hwndClient, WC_BUTTON, "Start Object Thread", 
WS_VISIBLE, 200, 90, 180, 30, hwndClient, 
HWND_TOP, ID _OBUTTON, 0, Q); 
WinCreateWindow(hwndClient, WC_BUTTON, "Kill Object Thread", 
0, 200, 50, 180, 30, bondClient, 
HWND_TOP, ID _KOBUTTON, 0O, 0); 


PgomEntry .hwnd = hwndFrame; OE eit arene hen iS * / 

PgmEntry.hwndIcon = (HWND) NULL; /*Add to window list ai 

PomEntry.hprog = (HPROGRAM) fi re ae eee eee eee eee * / 
NULL; 


PgmEntry.idProc (PID) NULL; 

PgmEntry.1idSession (ULONG) NULL; 
PgmEntry.uchVisibility = SWL_VISIBLE; 
PgmEntry. fbJump = SWL_JUMPABLE; 


strcpy (PgmEntry.szSwtitle, szTitle); 


WinAddSwitchEntry (&PgmEntry) ; 
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while (WinGetMsg(hab, &gqmsg, (HWND)NULL, 0, 0) ) 
WinDispatchMsg(hab, &qmsg) ; 


/* a mh wg pe eee mo AN he a hy tc th a AE png a Ss fa peak a Fe a a ect eeitenp * f 
/* Remove from window list and clean up * f 
/* yf ae eS nk La a a we a ems ap as ay ip tet wee as eis ee ee * / 


WinRemoveSwitchEntry (WinQuerySwitchHandle(hwndFrame, 0)); 
WinDestroyWindow (hwndFrame) ; 

WinDestroyMsgQueue (hmq) ; 

WinTerminate (hab) ; 

return 0; 


} 


LREREEREREREREREREEESEERRE SREREER ERE KE EKERKEEK EERE RREREERERKR f 


MRESULT EXPENTRY MainWndProc (HWND hwnd, ULONG msg, MPARAM mp1, 


MPARAM mp2 ) 
{ 
HAB hab; 
HWND hObject; 
HENUM hEnum; 
CHAR szClassBuffer [20]; 
BOOL fObjFound; 
Static USHORT usTimePeriod = 3; /* 3 minute time interval */ 


static ULONG ulStackSize = 4096; 
Static TID tidLTimer, 
tidLBox, 
EicGhs 2 


Switch (msg) 
{ 
case UM_3_MINUTES_UP: 
DosBeep (1000, 100); 
DosBeep (3000, 100); 
DosBeep (5000, 100); 
DosBeep (7000, 100) 
break; 


/ 


case UM_ENABLE KILL3MIN_BUTTON: 
WinEnablewindow (WinWindowFromID(hwnd, ID KILLER), TRUE) ; 
WinShowWindow (WinWindowFromID(hwnd, ID_KILLER), TRUE) ; 
break; 


case UM_ENABLE LISTBOX_BUTTON: 
WinEnablewindow (WinWindowFromID(hwnd, ID_LTHREAD) , TRUE) ; 
break; 
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case UM_ENABLE START3MIN_ BUTTON: 
WinEnablewWindow (WinWindowFromiID(hwnd, ID THREAD), TRUE); 
WinEnableWindow (WinWindowFromiID(hwnd, ID KILLER), FALSE); 
break; 


case WM_TIMER: 
if (-usTimePeriod == 0) /* 3 minutes elapsed? */ 


{ 


/ 


DosBeep (100, 100) 
DosBeep (300, 100); 
DosBeep (500, 100) ; 
DosBeep (700, 100) 
usTimePeriod = 3; 


/ 


} 


break; 


case WM_COMMAND: 
Switch (SHORTIFROMMP (mp1) ) 
{ 
case ID_TIMER: /* Start a timer */ 
WinEnablewindow (WinWindowFrom1iID(hwnd, ID_TIMER), 
FALSE) ; 
hab = WinQueryAnchorBlock (hwnd) ; 
WinStartTimer (hab, hwnd, 1, 60000) ; 


break; 
case ID THREAD: /* Start 3 minute timer thread */ 
WinEnablewWindow (WinWindowFrom1iID(hwnd, ID_THREAD), 


FALSE) ; 
fThreadActive = TRUE; 
DosCreateThread(&tidLTimer, (PFNTHREAD) LTimer, 
(ULONG) hwnd, 0, ulStackSize) ; 


break; 
case ID_OBUTTON: /* Start object window thread */ 
WinEnablewindow (WinWindowFromID(hwnd, ID_OBUTTON), 
FALSE) ; 
DosCreateThread(&tidObj, (PFNTHREAD) ObjThread, 0, 0, 
ulStackSize) ; 
break; 
case ID_KOBUTTON: /* Kill object window thread */ 


fObj Found = FALSE; 
/* Enumerate object windows */ 
/*tofindits handle sothat */ 
/* we can send it amessage a 
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hEnum = WinBeginEnumWindows (HWND_OBJECT) ; 
while (!£0bjFound) 


hObject = WinGetNextWindow (hEnum) ; 

WinQueryClassName (hObject, sizeof(szClassBuffer), 
szClassBuffer) ; 

if (!stremp(szClassBuffer, "ThreadsObj") ) 


fObj Found = TRUE; 
WinSendMsg (hObject, UM_SUICIDE, 0, 0); 


} 


WinEndEnumWindows (hEnum) ; 


break; 
case ID KILLER: /* Kill 3 minute thread */ 
WinSendMsg (hwnd, UM_ENABLE START3MIN_BUTTON, 0, 0); 
jf NI pd ae a ee eg ee Sep ee * / 
DosKillThread(tidLTimer); /* 32-bit only xf 
jf OO lel 2 ats bs ce ces Se ye ee eee * / 


/* €ThreadActive = FALSE; */ /* For 16-bit OS/2 we use */ 
/* the global flag method */ 


break; [ Pserena eae SSeS at 
case ID _LTHREAD: /* Start listboxthread */ 
WinEnablewWindow (WinWindowFromlD(hwnd, ID_LTHREAD), 
FALSE) ; 


DosCreateThread(&tidLBox, (PFNTHREAD) ListBox, 


0, 0, ulStackSize); 
break; 


case MI_EXIT: 
hab = WinQueryAnchorBlock (hwnd) ; 
WinStopTimer (hab, hwnd, 1); 
WinPostMsg (hwnd, WM_QUIT, O, OQ); 
break; 


default: 
break; 
} 


break; 


case WM _ERASEBACKGROUND: 
return (MRESULT) TRUE; 
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return WinDefWindowProc (hwnd, msg, mol, mp2); 


} 


fESERELLEAEEKEREERE LARA EEE REKKAERAEAREEKK ERE AKER REA KR BRK KAR HE RH f 


VOID _System LTimer (VOID * parm) /* Non-message queue thread */ 


{ 
HWND hwndClient; 


hwndClient = (HWND) parm; 
WinPostMsg (hwndClient, UM_ENABLE KILL3MIN_BUTTON, 0, 0); 
while (fThreadActive) 


{ 
DosSleep (180000) ; /* Wait for 3 minutes a 
if (fThreadActive) 
WinPostMsg (hwndClient, UM_3_MINUTES_UP, 0O, 0); 
} 
DosBeep(100, 500); /* Will never be executed if */ 
DOSEXIE (GO, 0}; /* DosKillThread used. Will */ 
} /* bekilledinstantly. ie 


[RRRREKEKREREEERERKRERREERE RRREERRRERKREREERKEERKKREEREKEREEKEEKEEER | 


VOID ListBox(VOID) /* Message queue thread without * f 
{ /* message processing loop * 
HAB habThread; 
HMQ hmqThread; 
HWND hClient; 
SHORT I, 
J, 
SsCount; 
CHAR szLBoxLine[20]; 


habThread = WinInitialize (0); 
hmgqThread = WinCreateMsgQueue (habThread, 0); 
WinCancelShut down (hmgqThread, TRUE) ; 
HClient =Getclient (); 
SCout = Uy 
WinSendMsg (WinWindowFromID(hClient, ID LIST), LM_DELETEALL, 
, Oye 
for (J = 0; J < 100; J++) 
{ 
for (1 =0Q; L< 267 I++) 
{ 
sCount++; 
sprintt (szLBoxLine, "$d 3s", sCount, szCountry [1] ) ; 
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} 


WinSendMsg (WinWindowFromID(hClient, ID_LIST), LM_INSERTITEM, 
MPFROMSHORT (LIT_END) , MPFROMP(szLBoxLine) ); 


} 

WinDestroyMsgQueue (hmqThread) ; 

WinTerminate (habThread) ; 

WinPostMsg(hClient, UM_ENABLE LISTBOX_BUTTON, 0, 0); 


DesExXit (0, OQ); 


[RRKKREREKKEKKKEEKKEKEKEKEKREKEKRKRKEEKEEKEKEEKKEEREEKKKEKKERERKEKKKKKEKEKKE / 


{ 


VOID ObjThread (VOID) /* Thread with amessage queue */ 
/* and message processing loop */ 
HAB habObj; 
HMQ hmqObj ; 


} 


QOMSG Qqmsg; 

habObj = WinInitialize(0O); 

hmqObj = WinCreateMsgQueue (habObj, 0); 
WinRegisterClass(habObj, "ThreadsObj", ObjWndProc, 0, 0); 


WinCreateWindow(HWND_OBJECT, "ThreadsObj", "", 0, 0, 0, 0, 0, 0, 
HWND_BOTTOM, ID OBJECT, O, 0); 


while (WinGetMsg(habObj, &gqmsg, (HWND)NULL, 0, 0O)) 
WinDispatchMsg(habObj, &qmsg) ; 


WinDestroyMsgQueue (hmqObj) ; 
WinTerminate(habObj); 
DosExit(G, 0): 


[RRKKRRKRKREKRKKKEKEKKKEEKRKKKEKEKKEKEKKKEKKKRKEEKKREKEKEKEREKEKRKKEREKEKRKEREREKE / 


MRESULT EXPENTRY ObjWndProc (HWND hwnd, ULONG msg, MPARAM mp1, 


MPARAM mp2) 


SHORT is 
Static HWND hClient; 


Switch (msg) 
{ 
case WM_CREATE: 
hClient = GetClient(); 
WinSendMsg (WinWindowFromID(hClient, ID_LIST), 
LM DELETEALL, 0, Q)+; 
for (I =0; I < 26; I++) 
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} 


WinSendMsg (WinWindowFromID(hClient, ID LIST), 
LM_INSERTITEM, MPFROMSHORT (LIT END), 
MPFROMP (szCountry(iIj)); 


} 
WinEnablewWindow (WinWindowFromiID(hClient, ID KOBUTTON) , 
TRUE} 2 
WinShowWindow (WinWindowFromID(hClient, ID _KOBUTTON) , 
TRUE) * 
break; 


case UM_SUICIDE: 


} 


/ 


DosBeep (400, 100) 
DosBeep (300, 100); 
DosBeep (200, 100) ; 
DosBeep (100, 100) 
WinSendMsg (WinWindowFromID(hClient, ID LIST), 
LM DELETEALL, 0, 0); 
WinEnabl eWindow (WinWindowFromiID(hClient, ID _OBUTTON), 
TRUE) ; 
WinEnabl eWindow (WinWindowFromID(hClient, ID _KOBUTTON) , 
FALSE) ; 
WinPostMsg (hwnd, WM_QUIT, 0, 0); 
break; 


/ 


return WinDefWindowProc (hwnd, msg, mol, mp2); 


f PEE LARERALAAS CSRS EARS H AH RAE E AAAS ESSERE KA ASA AK AER SERS S RY 


HWND GetClient (VOID) /* Get main client window handle */ 


{ 


HENUM hEnum; 


HWND 


CHAR 
BOOL 


hwWin, 

hCLAent : 
szClassBuffer [20]; 
£ClientFound; 


fFClientFound = FALSE; 


hEnum = WinBeginEnumWindows (HWND_DESKTOP) ; 
while (!£ClientFound) 


{ 


hWin = WinGetNextWindow(hEnum) ; 
WinQueryClassName(hWin, sizeof (szClassBuffer), 


szClassBuffer); 
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LE (!stremp(szClassBuffer, "#1")) 
{ 
hClient = WinWindowFromID (hWin, FID_CLIENT) ; 
WinQueryClassName(hClient, sizeof(szClassBuffer), 
szClassBuffer) ; 
if (!strcemp(szClassBuffer, "Threads") ) 


fClientFound = TRUE; 


} 
WinEndEnumWindows (hEnum) ; 
return hClient; 


Figure 12.4. Threads and timers: C source file. Concluded. 


13 
Menus, task management and shutdown 


13.1 Menus and menu bars 


13.1.1 Adding items to the system menu 


Perhaps one of the most common queries regarding menus is: ‘How can J alter the 
system menu?’ Usually, it is for adding an About option, although this is now 
added as Product Information in the Help pull-down menu. Anyway let us 
look at how we would answer the query. 

The first thing we need to do is to initialize the menu items we intend to insert. 
Usually, an About... box is inserted as the last option on the menu with a 
separator to distinguish it from the others. In the following code this definition 
is the MENUITEM array Item. Following that we have the text associated with 
these items: 


VOID AddMenultem(HWND hwnd) 
{ 


HWND hSysMenu, 
hSysSubMenu; 

MENUITEM SysMenu; 

SHORT r, 
slDSysMenu; 


static MENUITEM Item[2] = {MIT_END, MIS_SEPARATOR, 
0, Be Oyo, 
MIT _ END, MIis_TEAT, 
JU, [D_ABOUT, 0, O}3 


Static CHAR *Textil2]) = (NULL, “vAbout..."}>2 


hSysMenu = WinWindowFromID (WinQueryWindow (hwnd, 
OW_PARENT), FID SYSMENU) ; 


sITDSysMenu = SHORTIFROMMR (WinSendMsg (hSysMenu, 
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MM ITEMIDFROMPOSITION, 0, 0) ); 


WinSendMsg (hSysMenu, MM _QUERYITEM, 
MPFROM2 SHORT (siIDSysMenu, FALSE), 
MPFROMP (&SysMenu) ) ; 


hSysSubMenu = SysMenu. hwndSubMenu; 


tor (l= 05 T 2 2? T++} 
WinSendMsg (hSysSubMenu, MM_INSERTITEM, MPFROMP(Item+I1), 
MPFROMP (Text [I])); 
} 


Having defined our extra menu options we obtain the handle of the system menu 
by calling WinWindowFromID with the identifier FID_SYSMENU. However, this 
is not the handle we ultimately need; what is returned here is the handle of the 
actual system menu window in the top-left corner of the window. We really 
need the handle of the submenu, the one which contains all the options. To get 
this we send the system menu an MM_ITEMIDFROMPOSITION message to give 
us the ID of the actual menu list, and once we have this we can obtain the charac- 
teristics of the menu by sending it an MM_QUERYITEM message. The important 
item returned in the SysMenu structure is the actual handle of the submenu, 
armed with this we can insert our items into it by sending the submenu an 
MM INSERTITEM message. 

This code would normally be executed at window creation time, that is, in your 
WM_CREATE case statement, so do not forget that you cannot use hwndFrame 
here if you have defined it as a global variable—a common error, see Sec. 2.1. 
Clicking on About... will cause a WM4_COMMAND message to be sent to our win- 
dow with the low short of mp1 set to ID_ABOUT. On receiving this, we display a 
message box giving details about the program: 


case ID ABOUT: 
WinMessageBox (HWND_DESKTOP, hwnd, 
"Version 1\n31 March 1992\nWritten by Bryan Goodyer", 
"Menus & Task Management Sample Program", O, 
MB INFORMATION | MB OK | MB MOVEABLE) ; 
break; 


This information could, alternatively, be displayed in a dialog box. 


13.1.2 Changing a window’s menu 


There may be times when it is convenient for you to have two or more menus 
defined in your resource file for a window and, depending on what your user is 
doing, to switch between them when appropriate. The following resource file has 
two such menus, the second of which adds an extra option: 
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MENU ID_MATNWND PRELOAD 
BEGIN 
SUBMENU "Eexit’, IDM_ONE 
BEGIN 
MENUITEM "~Exit Program\tF3", MI_EXIT, MIS TEXT 
MENUITEM "~Resume Program", MI RESUME, MIS_TEXT 
END 
END 
MENU ID_MENU2 
BEGIN 
SUBMENU "~Options", IDM_TWO 
BEGIN 
MENUITEM "Menu Item~1", MI_ITEM1 , MIS. TEXT 
MENUITEM "Menu Item ~2", MI_ITEM2, MIS_TEXT 
END 
SUBMENU "Er~xit", IDM_THREE 
BEGIN 
MENUITEM "~Exit Program\tF3", MI_EXIT, MIS. TEXT 
MENUITEM "~Resume Program", MI RESUME, MIS TEXT 
END 
END 


A quick and easy way to switch the menus is to destroy the current menu and 
then use WinLoadMenu to load the next. You must then follow this with a 
WM_UPDATEFRAME message to force the frame to be redrawn, telling it which 
frame control has been added, in this case FCF_MENU: 


hwndFrame = WinQueryWindow(hwnd, QW_PARENT) ; 


WinDest royWindow (WinWindowFromID(hwndFrame, FID MENU) ); 
WinLoadMenu (hwndFrame, (HMODULE)NULL, ID _MENU2) ; 
WinSendMsg (hwndFrame, WM_UPDATEFRAME, (MPARAM)FCF MENU, 0); 


13.1.3 Checking a menu item 


Whenever a menu is about to be activated, the system sends your application a 
WM_INITMENU message so that you can make any changes to the submenu before 
it is displayed. For example, you may need to add a check mark to an item, depend- 
ing on the current state of the application. The following sample code shows this by 
setting up a flag, initially FALSE, and sending an MM_SETITEMATTR message to 
the menu. Because we are sending the message to the top-level menu rather than 
the submenu, we must specify TRUE to ensure the submenu is searched for the 
item. To check an item we use the MIA_CHECKED attribute. The data associated 


262 OS/2 Presentation Manager Programming 


with this is dependent on the flag, and since it is initially FALSE the item is not 
checked. However, if we now select the item, the flag changes state and next 
time the menu is displayed the item will be checked. This also applies to disabling 
items using the MIA_DISABLED attribute. 

With the introduction of OS/2 version 2.0, sending an MM_SETITEMATTR 
message can be replaced with the macro WinCheckMenultem, which makes the 
coding somewhat simpler and easier to read. Both methods are shown in the 
following code: 


case WM_INITMENU: 
Switch (SHORTIFROMMP (mp1) ) 


{ 
case IDM_TWO: [A PAS SS ea Se ee a 
/* Toggle menu item 1 on/off */ 
if Py seen ta ee Sc Ey aS see ate he ee * jf 
hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 
hMenu = WinWindowFromiD(hwndFrame, FID MENU) ; 
WinCheckMenulItem(hMenu, MI_ITEM1, fbChecked) ; 
/ SS pa ye eg a nat Ng eae ek alg Fae ey end a cet nee ee age Se * j 
/* Alternatively... ait 
c= aes 
/* WinSendMsg (hMenu, MM _SETITEMATTR, wf 
j* MPFROM2SHORT (MI _ITEM1, TRUE), « f 
f® MPFROM2SHORT (MIA CHECKED, mf 
/* fbChecked ? MIA CHECKED : 0)); a 
/ Rn ha oi wh yet the “oy i ot ih age Rs eh Di et en ace a a nh ce A BN a es eG a Se * j 
break; 
} 
break; 


case WM_COMMAND: 
Switch (SHORTIFROMMP (mp1) ) 
{ 
case MI_ITEMI1: 
flbChecked = (fbChecked ? FALSE : TRUE); 
break; 
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Two further useful macros are: 
e WinlsMenultemChecked 


fChecked = WinIsMenultemChecked (hMenu, usMenuID) ; 
e WinlsMenultemEnabled 


fEnabled = WinIsMenultemEnabled(hMenu, usMenuID) ; 


13.1.4 Deleting items from the system menu 


To delete items from an application’s system menu you must first obtain its handle 
and then send it an MM_DELETEITEM message. Ensure you use a value of TRUE 
for the Includesubmenus flag in the mp1 parameter. This will cause a search 
of all the system menu’s submenus for the item specified. 

To delete the menu items Size and Move from the system menu use: 


hwndSysMenu = WinWindowFromID (hwndFrame, FID _SYSMENU) ; 


WinSendMsg (hwndSysMenu, MM DELETEITEM, 
MPFROMY SHORT (SC SIZE, TRUE), 0) + 


WinSendMsg (hwndSysMenu, MM _DELETEITEM, 
MPFROMZSHORT (SC _ MOVE, TRUE), QO}; 


13.1.5 Deleting a separator from the system menu 


If you want to remove Close from the system menu, you will also need to remove 
the separator following it. To do this, you must first obtain the handle of the 
system menu submenu, that is, the actual menu displaying the items, and send an 
MM_ITEMPOSITIONFROMID message to obtain the position of Close in the 
menu. You then add one to this to get the position of the separator. Sending an 
MM_ITEMIDFROMPOSITION message for this value gives the actual item ID for 
the separator, which can now be used in the MM_DELETEITEM message. The 
Close option can be deleted in the normal manner, that is, by specifying 
(SC_CLOSE, TRUE) as the first parameter of the MM_DELETEITEM message to 
be sent to the system menu as shown in Sec. 13.1.4 for Size and Move: 


VOID DelClose(HWND hwnd) /* Pass inthe client window handle */ 
{ 


HWND hSysMenu, 
hSysSubMenu; 

MENUITEM SysMenu; 

SHORT silDitem, 
silDSep, 


sIlDSysMenu; 
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hSysMenu = WinWindowFromID (WinQueryWindow (hwnd, 
QW_PARENT), FID _SYSMENU) ; 


sIDSysMenu = SHORTIFROMMR (WinSendMsg (hSysMenu, 
MM ITEMIDFROMPOSITION, 0, 0)); 
WinSendMsg (hSysMenu, MM_QUERYITEM, 


MPFROM2 SHORT (sIDSysMenu, FALSE), 
MPFROMP (&SysMenu) ) ; 


hSysSubMenu = SysMenu. hwndSubMenu; 


sIDItem = SHORT1FROMMR (WinSendMsg (hSysSubMenu, 
MM ITEMPOSITIONFROMID, 
MPFROMZSHORT (SC CLOSE, FALSE) , 


QO)); 
if (sIDItem != MIT ERROR) 
{ j 0 ssne Sse Ses ee se a 
sIDSep = sIDItem+1; /* Get separator ID */ 
/* Ma ots a anh Fae betas ell a yeni tod hg Ln ey a * / 


sIDSep = SHORTIFROMMR (WinSendMsg (hSysSubMenu, 
MM ITEMIDFROMPOSILTION, 
MPFROMSHORT(sIDSep), 0)); 


WinSendMsg(hSysMenu, MM DELETEITEM, 
MPFROM2SHORT (SC_CLOSE, TRUE), 0); 


WinSendMsg(hSysSubMenu, MM_DELETEITEM, 
MPFROM2SHORT (sIDSep, FALSE), QO); 


13.1.6 Disabling/enabling menu bar 


To disable/enable the menu bar, and thus disable/enable all its pull-down menus, 
use WinEnabl eWindow. Once the menu bar has been disabled no menu option 
may be selected: 


f® baad Ha Pace ak acme fee ee Tae, face aa ate earl ih ea et aaa an FE a Ea ge * / 
/* Disable all menu items */ 
y= a and de as aD pe hs Neneh Saad ke en oe es ag ae tgs Le * / 


hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 
WinEnablewWindow (WinWindowFromID(hwndFrame, FID MENU), 
FALSE); 
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WinEnablewindow (WinWindowFromID (hwndFrame, FID MENU), 
TRUE) = 


13.1.7. Disabling/enabling items in an application menu 


To disable/enable an item in your application menu, you must first obtain its 
handle and then send it an MM_SETITEMATTR message to change the attribute of 
the item. This would normally be done in your WM_INITMENU case statement, 
depending on the setting of a flag. See also Sec. 13.1.3. 

Alternatively, you could use the macro WinEnableMenulItem to disable a 
menu item: 


hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 
hMenu = WinWindowFromID(hwndFrame, FID MENU) ; 


{* a ee nt pt Se et am Face aa eh teal nt * / 
/* Disable item 3 mf 
/* a a ge Ne Ye eR: ON ee Seth RC 1 * 


WinEnableMenultem(hMenu, MI_ITEM3, FALSE) ; 


13.1.8 Disabling/enabling items in the system menu 


To disable/enable an item in the system menu, you must first obtain its handle and 
then send it an MM_SETITEMATTR message to change the attribute of the item. 
However, you can only disable Close and Window list using this method: 


/* Ea a as Med Sd 8 la aa ae Ry ve Lis Sora, ee eS SNe fea a * / 
/* To disable 'Close* if 
[* Te ea ee GONEY Le SORE OO OTE NE TE Le PO TENE eS Py * / 


hwndSysMenu = WinWindowFromID(hwndFrame, FID _SYSMENU) ; 


WinSendMsg (hwndSysMenu, MM _SETITEMATTR, 
MPFROM2SHORT(SC_CLOSE, TRUE), 
MPFROM2 SHORT (MIA DISABLED, MIA DISABLED) ); 


/* a Sap te ny ee et Bec, bean id Baer * / 
/* To enable ‘Close’ =f 
/* eh aa a as at a te Gt cet ene ad eS a es Bh ae * / 


WinSendMsg (hwndSysMenu, MM_SETITEMATTR, 
MPFROM2 SHORT (SC. CLOSE, TRUE), 
MPFROM2SHORT (MIA DISABLED, 0O)); 


Alternatively, you could use the macro WinEnableMenulItenm, see Sec. 13.1.7. 
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If you need to disable Move then using WinEnab1eWindow to disable the title 
bar will cause Move to be greyed as a result, see Sec. 2.3.1. 
Note: There are no such restrictions in deleting items from the system menu. 


13.1.9 Dismiss MIA _NODISMISS menu 


If you have a menu in which one or more items are defined with the 
MIA_NODISMISS attribute and you select one of these items, then the menu 
does not disappear: 


BEGIN 
MENUITEM “Menu [lem ~L", MI_TTEML, MIS TEXT 
MENUITEM "Menu Item ~2", MI_ITEM2, MIS_TEXT, MIA_NODISMISS 
MENUITEM "Menu Item v3", MI_ITEM3, MIS_TEXT 

END 


This may be what you need in your application, but the problem comes when you 
do want to dismiss it, say by pressing a mouse button. You will not be able to do it 
by sending an MM_DISMISSMENU message as the menu is no longer in menu mode. 
Instead, you must post MM_STARTMENUMODE and MM_ENDMENUMODE messages. 
Notice that the MM_ENDMENUMODE message 1s posted. The documentation states 
that this message should be sent. However, the MM_STARTMENUMODE message 
must be posted. So if the START was posted, and the END was sent, then the 
END would be processed first. This is why both must be posted. 
To force a menu to dismiss use: 


case WM BUTTONILDOWN: 


/* ee ee ee ee ey ee ae ree ee ee ee eee Pe eee * / 
/* Force menu to dismiss ey 
/* Fa ae ey ea ee ey bs ee hy Fey ch ey eg Sey eh fe ee gn * 


hwndFrame = WinQueryWindow (hwnd, QW_PARENT) ; 

hMenu = WinWindowFromID(hwndFrame, FID MENU) ; 

WinPostMsg (hMenu, MM STARTMENUMODE, MPFROM2 SHORT (FALSE, 
TRUE), (MPARAM) NULL) ; 

WinPostMsg (hMenu, MM ENDMENUMODE, MPFROMSHORT (TRUE) , 
(MPARAM) NULL) ; 


break; 


13.2 Pop-up menus 


It can sometimes be useful for your user to be able to pop up a menu by pressing a 
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mouse button, say button 2, rather than have to move to the menu bar and select 
an item. To do this, you must first define your menu in the usual way in the 
resource file, and then trap the WM_CREATE/WM_INITDLG, and 
WM_BUTTON2 DOWN messages: 


MENU ID_MENU2 PRELOAD 


BEGIN 
SUBMENU "", ID OPTIONSZ <=== Include SUBMENU for 16=<bit, 
1t 1s not required for 32-bit 
BEGIN 


MENUITEM "Menu Item~1", ID_ITEM1 
MENUITEM "Menu Item ~2", ID_ITEM2 
MENULTEM "Menu Item~3", ID_ITEM3 
MENUITEM SEPARATOR 
MENUITEM "Menu Item~4", ID_ITEM4 
MENUITEM "Menu Item~5", ID_ITEM5 
END 
END 


In OS/2 version 2.0 the use of pop-up menus has been made considerably easier 
with the introduction of the WinPopupMenu function. Since this function is not 
available in version 1.x, the code needed to implement pop-up menus for both 
16-bit and 32-bit versions is included in the next two sections. 

If you are using a pop-up menu in a dialog box, and you have also defined a 
menu-bar, then ensure you load the pop-up menu before the menu bar otherwise 
you will encounter many problems, and it will not function as desired! Also, you 
will need to add a case statement for the WM_NEXTMENU message and return 
NULL from it. Otherwise, if the menu is visible and the user presses button | in the 
dialog box outside the menu, your application will hang. Note that this only applies 
if you are mixing pop-up menus with a menu bar. Section 5.19.1 handles this situation. 


13.2.1 16-bit version 


In the WM_CREATE/WM_INITDLG case statement you need to obtain the handle 
of the menu, by using WinLoadMenu, and the menu bar height, by using 
WinQuerySysValue with a value ID of SV_CYMENU, that is, the height of a 
single-line menu. This is needed so that you can position the pop-up so that the first 
menu item lines up with the mouse pointer. Without doing this you will find that 
the menu items are a menu bar’s height below the pointer. 

To complete the implementation you need to get the position of the mouse poin- 
ter by using either the macro MOUSEMSG or the function WinQueryPointerPos, 
making sure you adjust the Y coordinate by adding the menu bar height to it. 
Finally you must post an MM_STARTMENUMODE message to the menu handle 
and position the menu using WinSetWindowPos. 
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You must then add the relevant case statements for the menu items in your 
WM_COMMAND case statement in order to handle the processing of each item: 


static HWND hMenu; 
static ULONG ulMenuHt ; 
POINTL PC; 


case WM CREATE: 
hMenu = WinLoadMenu (hwnd, NULL, ID MENU) ; 
ulMenuHt = WinQuerySysValue (HWND_ DESKTOP, SV_CYMENU) ; 
break; 


case WM_BUTTONZ2DOWN: 

Pt .x = MOUSEMSG (&msg) ->x; 

Pt.y = MOUSEMSG(&msg) ->y + ulMenuHt; 

WinPostMsg (hMenu, MM_STARTMENUMODE, MPFROM2SHORT (TRUE, 
TRUE), NULL) ; 

WinSetWindowPos (hMenu, HWND_TOP, (SHORT) Pt.x, (SHORT) Pt.y, 

0, 0, SWP_MOVE | SWP_SHOW) ; 
break; 


13.2.2 32-bit version 


The equivalent 32-bit code, this time for a dialog box, is as follows: 


case WM_INITDLG: 
hMenu = WinLoadMenu (hwnd, (HMODULE)NULL, ID MENU); 
break; 


case WM _BUTTON2DOWN: 
WinQueryPointerPos (HWND_DESKTOP, &Pt) ; 
WinMapWindowPoints (HWND_DESKTOP, hwnd, &Pt, 1); 
WinPopupMenu (hwnd, hwnd, hMenu, Pt.x, Pt.y, 0, PU_KEYBOARD | 
PU_MOUSEBUTTON1) ; 
return (MRESULT) TRUE; 


See also Sec. 5.19.1. 


13.3 Task management 


Although the task manager does not exist in OS/2 version 2.0 all the following is 
still applicable. If you are still using OS/2 version 1.x then where reference is made 
to the window list, read this as the task list. 
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13.3.1 Add program title to the window list 


If you use the window style FCF_STANDARD, then your program’s name will 
appear in the window list and your title bar, concatenated with any text you 
may have defined for your application’s title bar. For example, if your program 
was called “XYZ.EXE’ and its title was “Test Program’, then in the window list 
it would appear as XYZ. EXETest Program. 

If you do not want the program’s EXE name to appear then do not use the style 
FCF_TASKLIST, which is one of the styles defined by FCF_STANDARD. Instead, 
add it to the window list using WinAddSwitchEntry: 


SWCNTRL PomEntry; 
static HWND hEntry; 


PgmEntry. hwnd = hwndFrame; 
PgomEntry.hwndiIcon = (HWND) NULL; 
PgmEntry.hprog = (HPROGRAM) NULL; 
PgmEntry.idProcess = (PID) NULL; 
PgmEntry.idSession = (ULONG) NULL; 
PomEntry .uchVisibility = SWL_VISIBLE; 
PgmEntry.fbJump = SWL_JUMPABLE; 


strcpy (PgmEntry.szSwtitle, Title); 
hEntry = WinAddSwitchEntry (&PgmEntry) ; 


while(WinGetMsg(hab, &gqmsg, (HWND)NULL, O, 0)) 
WinDispatchMsg(hab, &gqmsqg); 


WinRemoveSwitchEntry (hEntry) ; 


On exit from the program’s message loop use WinRemoveSwitchEntry 
to remove the entry. Either declare a static handle, hEntry, or use 
WinQuerySwitchHand1e to get the switch list handle when terminating: 


WinRemoveSwitchEntry (WinQuerySwitchHandle(hwndFrame, 0) ); 


13.3.2 Query/change the program entry in the window list 


To change your application’s entry in the window list, first use WinQuery- 
SwitchHand1le to query the window list for your application, modify the entry 
and then call WinChangeSwitchEntry to update it. The following code 
changes the program title and prevents you from jumping to it using the 
Alt-Esc and Alt-Tab key sequences: 


SWCNTRL PomEntry; 
HSWITCH hSwl1 ; 
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case WM _XxXxX: 
hSwL = WinQuerySwitchHandle (WinQueryWindow (hwnd, 
QW_PARENT), 0); 
WinQuerySwitchEntry (hSwL, &PgmEntry) ; 


PomEntry.fbJump = SWL_NOTJUUMPABLE;; 
strcpy (PgmEntry.szSwtitle, "New Title"); 


WinChangeSwitchEntry (hSwl, &PgmEntry) ; 
break; 


13.3.3. Remove Close from the window list 


Warning: Undocumented, use with caution. 
If you need to remove Close from the window list (32-bit), or disable the 
End Task button on the task list (16-bit), then use Winl6NoShutdown or 
WinNoShutdown respectively: 


[RRRKKKRKKKKKKKKKKKKKKKKKKKKKKK KKK / 


/* WARNING - UNDOCUMENTED INTERFACE * / 


[ERRKKKKKEKKKKKKKKRKEKKEKKKKEKEKKEKKKE / 


BOOL _Farl6 Pascal Winlé6éNoShutdown(USHORT sessionid, 
BOOL fNoShutdown) ; 


/* sett Pang ach Seay wea tes AN OR ae I ae se Pa eae oe RE reel aad a a I ats nh as mh ag RR oot ES ite AR em A ca) * / 
/[* 16-Bit Equivalent = 
jm * f 
/* BOOL APIENTRY WinNoShut down ( * f 
/* USHORT sessionid, * / 
i BOOL fNoShutdown) ; wf 
/* se ale aah eal a aia td a ah teeta a a ad A hs Se a ey ed tee Ch ea Ag tS et hn eh * / 


/* To remove Close from the window list */ 
Winl6NoShutdown (0, TRUE) ; 

/* To replace Close inthe window list */ 
Winl6NoShutdown (0, FALSE) ; 


Think very carefully before using them, and certainly do not use them for any soft- 
ware destined for the marketplace! As with all things in OS/2 that are not docu- 
mented, they are likely to change without notice, or even disappear. If you do 
use them and they cause problems then you will not be able to obtain support. 
This also applies to any undocumented API that you may discover by browsing 
the various OS/2 LIB files. 

See also Sec. 13.4.2. 
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13.3.4 Query the window list 


If you need to find out what applications have been added to the window list you 
can query it by using WinQuerySwitchList. This returns a switch list block 
containing all the current entries. It needs to be called twice, the first time to get 
the count of entries and the next time to get the entry list. To obtain the count 
of entries, set the parameters SwitchEntries and DataLength on the 
WinQuerySwitchList call to NULL and 0 respectively. Prior to calling 
WinQuerySwitchList for the second time, you must allocate sufficient memory 
to hold the returned list. The amount required is obtained by multiplying the size of 
the switch list block, sizeof (SWBLOCK) , by the number of entries returned from 
the first call: 


SWCNTRL Sewent rl: 


USHORT usNumTasks, 

usBufSize, 

Ig 
PSWBLOCK pswblk; 
PVOLD BaseMem; 
/* a eM a Se nN a hh ha Na ag Be Na as Ma rg pe a mg dg Ne ete ee * / 
/* Get number of task entries so that space can be */ 
/* allocated to store the switch list block * / 
/* ra aces a a a cy a ag eer er as pee te he x / 


usNumTasks = WinQuerySwitchList (hab, NULL, 0); 

usBufSize = sizeof (SWBLOCK) * usNumTasks; 

DosAllocMem(&BaseMem, usBufSize, PAG READ | PAG WRITE | 
PAG COMMIT) ; 

pswblk = BaseMem; 

WinQuerySwitchList (hab, pswblk, usBufSize) ; 


for (Il =O; IT « usNumTasks: I++) 
{ 
ewentrl = * (PSWCNTRL) ( (char *)&é 
(oswbhlk[I].aswentry[0].swctl) - sizeof (ULONG) *I); 
} 


DosFreeMem (BaseMem) ; 


The sample program in Chapter 3 makes use of this routine. 


272, OS/2 Presentation Manager Programming 


13.3.5 Window list options 


There are two options of interest: 

e SWL_GRAYED Use this value for PogmEntry.uchVisibility when add- 
ing your program to the window list to prohibit switching to it from the win- 
dow list. In fact, in version 2.0 the entry is removed, whereas in version 1.x it 
is greyed in the task list. 


e SWL_NOTJUMPABLE Use this value for PgmEntry.fbJump when adding 
your program to the window list to prohibit switching to it using the Alt - 
Esc key sequence. 


13.4 Shutdown 


This is an area that has changed significantly under OS/2 version 2.0 with the desk- 
top manager and task list being replaced by the workplace shell and window list 
respectively. The Save Desktop option which was present in OS/2 version 1.x 
has not been carried forward to version 2.0. Instead, the desktop is automatically 
saved on system shutdown, when all running applications are sent a 
WM_SAVEAPPLICATION message. Applications can still be closed from the 
window list but there is no End Task button. This has been replaced with a Close 
option on a context menu, displayed by pressing mouse button 2 on the applica- 
tion’s entry in the window list. Clicking on this entry causes a WM_QUIT message 
to be posted to the application. At first sight you may think that the only way your 
users can save the state of your application is to shut down the system, but this is 
not the case. Whenever your application now receives a WM_QUIT message, it also 
receives a WM_SAVEAPPLICATION message, so if you handle this message, every 
time your program ends it will save its current state. 

In all the following sections, window list Close is equivalent to the OS/2 V1.x 
task list End Task button. 


13.4.1 WM_QUIT message 


The WM_QUIT message is posted to your application when: 


e Shutdown is selected from the desktop, in which case all queues receive it. 
e Close is selected from the window list or the application’s system menu. 
e The application posts it to itself when exit is requested from its menu bar. 


This message always returns FALSE and causes your message loop to terminate. 


13.4.2 Detecting and preventing/confirming shutdown 


Whenever Close is selected from the system menu for an application, that appli- 
cation receives a WM_QUIT message causing the message loop to end, thus closing 
the program. However, in this case mp1 contains the frame handle, but in all other 
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cases it is NULL. It is therefore possible to use this fact either to ignore shutdown 
completely, or to put up a message box asking for confirmation of closure. To 
implement this you need to place your message loop in a separate loop (see the 
following example) and, on exit from the message loop test mp1, if it is not 
NULL then cancel shutdown: 


while (TRUE) 


{ 
while (WinGetMsg(hab, &gmsg, (HWND)NULL, O, 0)) 
WinDispatchMsg(hab, &qmsg) ; 


if (qmegq.mpol == NULL) /* Shutdown or window list ‘Close’ */ 
break; 
else /* 'Close’ fromsystemmenu a A 


WinCancelShutdown(hmq, FALSE) ; 


13.4.3. Shutdown and multiple threads 


If you have multiple threads in your application that have their own message 
queues then ensure that you include a call to WinCancel Shutdown to prevent 
the WM_QUIT message being sent to it. This is done by specifying a value of 
TRUE for the CancelAlways parameter: 


HAB habThread; 
HMQ hmqThread; 


habThread = WinInitialize(0O); 
hmqThread = WinCreateMsgQueue (habThread, 0); 
WinCancelShutdown (hmqThread, TRUE) ; 


If an application’s secondary thread has a message queue, it may receive a 
WM_QUIT message after the main thread has processed its WM_QUIT message 
and destroyed itself and the second thread. Presentation Manager will then wait 
indefinitely for the non-existent thread to return, hence hanging system shut- 
down. See also Chapter 12. 


13.5 Sample program 
This program shows the following: 


Starting in background 

Adding/removing from the window list 

Changing the window list 

Querying the window list 

Removing the program’s entry from the window list 
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Removing Close from the window list for the application 
Disabling Close and Window list in the system menu 
Deleting Size and Move from the system menu 
Prohibiting exit from the window list and system menu 
Adding an About... option to the system menu 
Disabling all menu items 





(a) ann nile ctlnnna Wann nnn ne a nnn cnn ncaa nnn anne nn nnnnnnsnnnnnnn 
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Figure 13.1. Menus and task management output: (a) system menu, (b) application menu. 
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e Toggling menu item checked/unchecked 
e Deleting Close and its separator from the system menu 
e Changing menus 


This program starts in the background and as such does not take the focus from 
you. Initially, Close and Window list in the system menu are greyed out (Fig. 
13.1), the menu bar is disabled and Close in the window list for the program is 
absent. 

If you press mouse button | in the client area, the menu bar is enabled. Close in 
the system menu is enabled but will not function. The Close option is also 
replaced in the window list and, finally, the title is changed in the window list. 

If you press mouse button 2 then Close and its separator are deleted from the 
system menu, and pressing Switch Menus causes a different menu to be loaded. 
This new menu has two options with three items under Options. The first item 
can be checked and unchecked, the second has the ‘NODISMISS’ option and 
the last is permanently disabled. 

The following listings show the program’s header file, Fig. 13.2, resource file, 
Fig. 13.3, and C source file, Fig.13.4. 


#define ID_MAINWND 200 


#define ID TITLE 201 
#define ID_ABOUT 202 
#define MI_ EXIT 203 
#define MI_RESUME 204 
#define ID_MENU2 205 
#define MI_ITEM1 206 
#define MI_ITEM2 207 
#define MI_ITTEM3 208 
#define ID_SWITCH Aug 
#define IDM_ONE 210 
#define IDM_TWO oAS 
#define IDM_THREE ee 


Figure 13.2. Menus and task management: header file. 
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#include <os2.h> 


#include "menu.h" 


STRINGTABLE PRELOAD 


BEGIN 
ID_TITLE, "Menus and Task Management" 
END 
ICON ID_MAINWND menu.ico 
ACCELTABLE ID _MAINWND 
BEGIN 
VK_F3, MI EXIT, VIRTUALKEY 
END 
MENU ID_MATINWND PRELOAD 
BEGIN 
SUBMENU "BexXLE", IDM_ONE 
BEGIN 
MENUITEM "~Exit Program\tF3", MI EXIT, MIS TEXT 
MENUITEM "~Resume Program, MI_RESUME, MIS_TEXT 
END 
END 
MENU ID_MENU2 
BEGIN 
SUBMENU "~Options", IDM_TWO 
BEGIN 
MENUITEM "Menu Item~1", MI_ITEM1, Mis TEXT 
MENUITEM "Menu Item~2", MI_ITEM2, MIS_TEXT, MIA_NODISMISS 
MENUITEM "Menu Item ~3", MI_ITEM3, MIS TEXT 
END 
SUBMENU "E~xit", IDM_THREE 
BEGIN 
MENUITEM "~Exit Program\tF3", MI_EXIT, MIS_TEXT 
MENUITEM "~Resume Program", MI_RESUME, MIS TEXT 
END 
END 


Figure 13.3. Menus and task management: resource file. 


#define 
#define 
#define 
#define 
#define 
#define 


#include 
#include 
#include 
#include 
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INCL_WINWINDOWMGR 
INCL_WINFRAMEMGR 
INCL _WINSWITCHLIST 


INCL_WINSYS 


INCL_WINMENUS 
INCL_WININPUT 


<Os2 . > 
<string.h> 
<stdlib.h> 
"menu.h" 


MRESULT EXPENTRY MainWndProc (HWND, ULONG, MPARAM, MPARAM) ; 


VOID AddMenultem(HWND) ; 
VOID DelClose (HWND); 
/* a Ss fea ice oa ein aes feed pees es Rs te ee eafesh oe 
/* UNDOCUMENTED 
/* BE WARNED! 
/* a a a ey Oe ee re ee ee ene een 
BOOL _Farl6 _Pascal Winl6NoShutdown (USHORT, BOOL) ; 
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[ERK KRKKEKKKKEEKKEKEKKEKERKEKKEEKRKKEKRKEKEKERKKEKKEKRKEKKKEKKEKKEKKEKKEKKEKKEKKE / 


INT main (VOID) 


{ 
HAB 
HMQ 
HWND 


QMSG 
ULONG 
CHAR 
SWCNTRL 
LONG 


hab; 

hmq; 
hwndFrame, 
hwndClient, 
hwndSysMenu; 
Qmsg; 
flFrameFlags; 
szTitle[80]; 
PomEntry; 
1X_Left, 

LY BOL, 
lHeight, 
lWidth, 
1ScrHeight, 
1Scrwidth; 


[RRKRRRKKKKEKKKEKKKERKKERK KEK RKEKKEKKKEKKEKKEKKKKKKKKKKKKKE KHEKKKKEKEKEKE / 


Figure 13.4. Menus and task management: C source file. Continues. 
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/* 
/* 
/* 
/* 


hab = WinInitialize (0); 
hmq = WinCreateMsgQueue (hab, 0) ; 


WinRegisterClass(hab, "Menu", MainWndProc, 
CS SIZEREDRAW, 0); 


WinLoadString (hab, (HMODULE) NULL, ID_TITLE, 
sizeot(szTitle), szTitle) = 


flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF_MENU | 
FCF_SIZEBORDER | FCF_MINMAX | 
FCF_ACCELTABLE | FCF_ICON | 
FCF_NOBYTEALIGN; 


hwndFrame = WinCreateStdwindow(HWND_DESKTOP, 0, 
&flFrameFlags, "Menu", 
szTitle, 0, (HMODULE) NULL, 
ITD_MAINWND, &hwndClient) ; 


WinCreateWindow(hwndClient, WC_BUTTON, "Switch Menus", 
WS_ VISIBLE, 10, 10, 120, 30, hwndClient, 
HWND_TOP, ID_SWITCH, O, 0); 


1ScrwWidth = WinQuerySysValue(HWND_DESKTOP, SV_CXSCREEN) ; 
1ScrHeight = WinQuerySysValue (HWND_DESKTOP, SV_CYSCREEN) ; 


Width =400; 
lHeight = 300; 


1X Left = (1SerWidth - 1Width) lay 


1¥_Bot = {lSerHeight =— lHeight) / 2; 
a i Baan I ak eg heh ag at es awa es * / 
Startup in foreground mf 
a 
WinSetWindowPos (hwndFrame, 0, 1X_Left, LY_Bot, */ 
lWidth, lHeight,SWP_SIZE | J 
SWP_MOVE | SWP_SHOW | SWP_ACTIVATE); */ 
a Ss FE aN SN ca a Nace ee ae ome el a ee i ad * f 
Eee ge Peet at Gah ea fens oe a tet Aah OS an Rd ee pes * / 
Startup in background */ 
ga el Se Se ee ay a fs es Nd ee ey * / 


Figure 13.4. Menus and task management: C source file. Continues. 
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WinSetWindowPos (hwndFrame, HWND_ BOTTOM, 1X Left, 
1Y Bot, lWidth, lHeight, SWP_SIZE | 
SWP_MOVE | SWP_SHOW | SWP_ZORDER) ; 


PomEntry.hwnd = hwndFrame; 
PomEntry .hwndiIcon = (HWND) NULL; 
PgmEntry.hprog = (HPROGRAM) NULL; 
PgmEntry.idProcess = (PID) NULL: 
PgmEntry.idSession = (ULONG) NULL; 
PomEntry.uchVisibility = SWL_VISIBLE; 
PomEntry. fbJump = SWL_JUMPABLE; 


strcpy (PgmEntry.szSwtitle, szTitle) ; 


WinAddSwitchEntry (&PgmEntry) ; 


i * Pn he SE STO Sap rca 3 Sh pee GA a Ho cl Yon a en At aed on Palen * / 
/* Remove ‘Close’ from window list */ 
/* a a al Ge A ang as Oey Sree Se ee oy Ne ee Ree Oe ee Sige LE SS ee ee Bee eee mf 


WinléNoShutdown (0, TRUE) ; 


hwndSysMenu = WinWindowFromID(hwndFrame, FID_SYSMENU) ; 


/* ae oy ee Le ae ee Oe ee eT Se ee OR eS gee yn ery oe * / 
/* Disable 'Close’ insystemmenu ok 
/* SN Nt ap gn ag ag Nh li aa ee pee eS ten es fh cram Ses pe os ated * / 


WinSendMsg (hwndSysMenu, MM_SETITEMATTR, 
MPFROM2SHORT(SC_CLOSE, TRUE), 
MPFROM2 SHORT (MIA DISABLED, MIA DISABLED) ) ; 


/* cf le Sh Se eh a re ne Ss en * / 
/* Disable ‘Window list’ in of 
/* system menu “y 
/* a ry a st ag a ag ay ae a a ay me ae ea, eh ee eee * / 


WinSendMsg (hwndSysMenu, MM _SETITEMATTR, 
MPFROM2 SHORT (SC_TASKMANAGER, TRUE), 
MPFROM2SHORT (MIA DISABLED, MIA DISABLED) ); 


/* Bac teal Reta cetinlac ik ese tates pies “gccgen Pucgas vemee Inia ices. bce ca ct Sa hrc Mecca's rags ie ce ne aN so ere pHi * / 
/* Delete ’Size’ and ’Move’ from */ 
/* systemmenu * 7 
jf ® Mey fe At ge gat, SE Soc ace Se me Ren a, a ae, ag nas, aay sp Bes pa mf 


WinSendMsg (hwndSysMenu, MM DELETEITEM, 
MPFROM2SHORT(SC_SIZE, TRUE), 0); 


Figure 13.4. Menus and task management:: C source file. Continues. 
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WinSendMsg (hwndSysMenu, MM_DELETEITEM, 
MPFROM2 SHORT (SC_MOVE, TRUE), 0); 


while (TRUE) 


{ 
while (WinGetMsg(hab, &qmsg, (HWND)NULL, 0, 0)) 


WinDispatchMsg (hab, &qmsg) ; 
1£ (qmsg.mpl == NULL) 


DosBeep (1000, 200); 
break; 


} 


else 


{ 


j* gs ae at a fe Sa es es ts te ets es os Se 


/* Do not allow exit from system menu 


/* a es tel fe Se ee ees Se ss ee ee 


DosBeep(100, 200); 
WinCancelShutdown (hmg, FALSE) ; 


/* Remove from window list and 
/* clean up 


f* a ha Ss ea ep eer cls aay os He eeh ce ean es eee (eee Sec ag me eer ene pee ms 


WinRemoveSwitchEntry (WinQuerySwitchHandle (hwndFrame, 0)); 
WinDestroyWindow (hwndFrame) ; 

WinDestroyMsgQueue (hmq) ; 

WinTerminate (hab) ; 

return 0; 


} 


—* / 


=f 


—* / 


fERREKERERESE KEEKEREKERREE KRRERRERRKARE KE ERLE KS SREKAA RRR RA RRR 


MRESULT EXPENTRY MainWndProc (HWND hwnd, ULONG msg, 
MPARAM mpl, MPARAM mp2) 


SWCNTRL PgomEntry ; 

HWND hFrame, 
hMenu, 
hSysMenu; 


Figure 13.4. Menus and task management: C source file. Continues. 
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HSWITCH hSwL; 


static BOOL fbSwitched = FALSE, 
EbChecked = FALSE; 


Switch (msg) 


{ 
case WM_CREATE: 


/* Sa ty fy sey ay hs Cae Rance pay at ay eS ee! Shee ee SS * / 
/* Add ‘About...’ to systemmenu mf 
/* se fay Sa fe a a ant tg ca a a fa ae ak es Ah ee ey *y 


AddMenultem(hwnd) ; 


hFrame = WinQueryWindow (hwnd, QW_PARENT) ; 


/* Say cy es Pi ok ce ay oer, wg lng ca rca Hen RES Eas pc aa oo ae! a * / 
/* Disable all menu items */ 
/* en Se ey ey TN ee PS De Te oe re ee * / 


WinEnableWindow (WinWindowFromID(hFrame, FID _MENU), FALSE) ; 
break; 
case WM_INITMENU: 

Switch (SHORT1FROMMP (mp1) ) 


{ 
case IDM_TWO: 


/* jens a aa ae Sa ch cl eas Cee akties Se cat * / 
/* Toggle menu item1 on/off */ 
/* a apap anata ay am fac ee des aa fang he Se eke get teat aos es Be * / 


hFrame = WinQueryWindow (hwnd, QW_PARENT) ; 
hMenu = WinWindowFromiID(hFrame, FID MENU) ; 
WinCheckMenultem(hMenu, MI_ITEM1, fbChecked) ; 


/* Soi ee es oes eee Se a a Sea ee Se * / 
/* Alternatively... ef 
i * if 
/* WinSendMsg(hMenu, MM_SETITEMATTR, a i 
/* MPFROM2 SHORT (MI_ITEM1, TRUE), my 
p= MPFROM2 SHORT (MIA CHECKED, = 
j/* EbChecked ? MIA CHECKED : 0)); a 
/ TF ac a a ey ay I a AAA Fe at rh MO ne ah re es AR a Pe ye er ny Neen Sap eas nt * / 


Figure 13.4. Menus and task management: C source file. Continues. 
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js ay ep ee es Ee eee * / 
/* Disable item 3 */ 
/* Fee he Bn cg ge ye oe eee * / 


WinEnableMenultem(hMenu, MI_ITEM3, FALSE); 
break; 


break; 


case WM_BUTTONIDOWN: 


/* 


j* ry a fa a ty i a en NR gat San wae a ieee ae nye ed ae * / 
/* Replace ‘Close’ inwindow list */ 
/* Ba es Ss Ee eek ees oe pees AS) ee fee et tad eg Maas ae a as a Ba ee * 


/* an a a a a a le eh oak ty fod al ca ng Dae Bh, Bd Se, wee * / 
/* Enable ’Close’ insystemmenu */ 
/* a Fe ef Nh ah i ee a pe a ay a ny re * / 


hSysMenu = WinWindowFromID(WinQueryWindow (hwnd, 
QwW_PARENT), FID _SYSMENU) ; 


WinSendMsg (hSysMenu, MM_SETITEMATTR, 
MPFROM2 SHORT (SC_CLOSE, TRUE), 
MPFROM2SHORT (MIA DISABLED, 0)); 


/* 1 na «hab Bh RS pay Oy) Dee ap A Neg ven, Dob $a ph edge =f 
/* Enable all menu items */ 
j/* ha a aS Lp Pah Boe he teh ec yee ey ee * / 


hFrame = WinQueryWindow (hwnd, QW_PARENT) ; 
WinEnableWindow(WinWindowFromID (hFrame, FID MENU), TRUE) ; 


i * Le eee es ESS cepa Peary ep Eh ae Sa Id a ees * / 
/* Query window list entry */ 
{/* spent wes pe as Seth ces Ree hep ea * / 


hSwL = WinQuery SwitchHandle (WinQueryWindow (hwnd, 
QW_PARENT), 0); 
WinQuerySwitchEntry (hSwL, &PgmEntry) ; 


/* Aga aga en ey ag See pa phy cee ope * / 
/* Change window list entry */ 
/* Sng ei DS ec ge yy Se ge agg a ie ee * 


PomEntry.uchVisibility = SWL_GRAYED; */ 
PomEntry .fbJump = SWL_NOTJUMPABLE; 


Figure 13.4. Menus and task management: C source file. Continues. 
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strcpy (PgmEntry.szSwtitle, 

"Task Management & Menus") ; 
WinChangeSwitchEntry (hSwL, &PgmEntry) ; 
break; 


case WM_BUTTON2DOWN: 


/* ch a tg a a th ah ety a Ee Fe mt men eva * / 
/* Delete '’Close’ andits separator */ 
/* ey aa pce eg a en es een ya pes Ae cet eee eg peep we (pe * / 


DelClose (hwnd) ; 
break; 


case WM_COMMAND: 
Switch (SHORTIFROMMP (mp1) ) 
{ 
case ID_SWITCH: 
hFrame = WinQueryWindow (hwnd, QW_PARENT) ; 


if (!£fbSwitched) /*------------ lt 
/* Switch menus */ 
{ {[*----------- a 5 


WinDestroyWindow (WinWindowFromID 
(hFrame, FID_MENU) ); 
WinLoadMenu (hFrame, (HMODULE)NULL, ID _MENU2) ; 
WinSendMsg (hFrame, WM_UPDATEFRAME, 
(MPARAM) FCF_MENU, 0); 
fbSwitched = TRUE; 
} 
else 
{ 
WinDest royWindow (WinWindowFromID 
(hFrame, FID MENU) ); 
WinLoadMenu(hFrame, (HMODULE) NULL, ID _MAINWND) ; 
WinSendMsg (hFrame, WM_UPDATEFRAME, 
(MPARAM) FCF_MENU, 0); 
fbSwitched = FALSE; 
} 


break; 
case ID ABOUT: 
/* ee ae NT Lal are Oe reel gn TS A Nd Oe Saree oe, ee * f 
/* Display ‘About’ box */ 
/* Se a ae a fee ae pee en a a ee es mf 


Figure 13.4. Menus and task management: C source file. Continues. 
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WinMessageBox (HWND_DESKTOP, hwnd, 
"Version 1\n31 March 1992\ nWritten by Bryan Goodyer", 
"Menus & Task Management Sample Program", 
0, 
MB INFORMATION | MB_OK | 
MB_ MOVEABLE) ; 
break; 


case MI_ITEM1: 
fbChecked = (fbChecked ? FALSE : TRUE); 
break; 


case MI_ITEM2: 
DosBeep(100, 1000); 
break; 


case MI_EXIT: 
WinPostMsg (hwnd, WM_QUIT, 0, 0); 
break; 


default: 
break; 
} 


break; 


case WM_SAVEAPPLICATION: 


/* Just confirmthat this message */ 
/* is sent when the programends. */ 


DosBeep(100, 100) 
DosBeep (200, 100) 
DosBeep (300, 100); 
DosBeep (400, 100) 
DosBeep (500, 100) 
return NULL; 


case WM_ERASEBACKGROUND: 
return (MRESULT) TRUE; 


} 


return WinDefWindowProc (hwnd, msg, mpl, mp2); 


} 


Figure 13.4. Menus and task management: C source file. Continues. 
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[RR RRKREREKEREKEKEKEKEKEKREKREKRE KERR REREREKKEEREERKEKKEREREREKEKEKREREKEK | 


VOID AddMenultem(HWND hwnd) 
{ 


HWND hSysMenu, 
hSysSubMenu; 

MENUITEM SysMenu; 

SHORT Ly 
sIDSysMenu; 


static MENUITEM Item[2] = {MIT_END, MIS SEPARATOR, 
Oy Oe Ue Dy 
MIT _END, MIS_TEXT, 0, ID_ABOUT, 
Oe. OE 


static CHAR *Text(2jJ = {NULL, “wAbOUt..."}; 


hSysMenu = WinWindowFromID (WinQueryWindow 
(hwnd, QW_PARENT), FID_SYSMENU) ; 


sIDSysMenu = SHORT1FROMMR (WinSendMsg (hSysMenu, 
MM_ITEMIDFROMPOSITION, O, 0)); 


WinSendMsg (hSysMenu, MM_QUERYITEM, 
MPFROM2SHORT (sIDSysMenu, FALSE), 
MPFROMP (&SysMenu) ) ; 


hSysSubMenu = SysMenu.hwndSubMenu; 


for (I =0; I< 2; T++) 
WinSendMsg (hSysSubMenu, MM_INSERTITEM, MPFROMP(Item+I), 
MPFROMP (Text [I])); 


VOID DelClose(HWND hwnd) 
{ 
HWND hSysMenu, 
hSysSubMenu; 


MENUITEM SysMenu; 

SHORT siDIitem, 
sIDSep, 
sIDSysMenu; 


hSysMenu = WinWindowFromID (WinQueryWindow 
(hwnd, QW_PARENT), FID_SYSMENU) ; 


Figure 13.4. Menus and task management: C source file. 
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sIDSysMenu = SHORTIFROMMR (WinSendMsg (hSysMenu, 
MM _ITEMIDFROMPOSITION, 0, 0)); 


WinSendMsg (hSysMenu, MM _QUERYITEM, 
MPFROM2SHORT(sIDSysMenu, FALSE) , 
MPFROMP (&SysMenu) ); 

hSysSubMenu = SysMenu.hwndSubMenu; 


sIDItem = SHORT1IFROMMR (WinSendMsg (hSysSubMenu, 
MM_ITEMPOSITIONFROMID, 
MPFROM2 SHORT 
(SC_CLOSE, FALSE), 0)); 


if (sIDItem != MIT_ERROR) 


{  ileceaieimiainiaian mentee mf 
sIDSep = sIDItem +1; /* Get separator ID */ 
/* ee a es Se eT ny ee ee ee * / 


sIDSep = SHORTIFROMMR (WinSendMsg (hSysSubMenu, 
MM _ ITEMIDFROMPOSITION, 
MPFROMSHORT(sIDSep), 0)); 


WinSendMsg (hSysMenu, MM_DELETEITEM, 
MPFROM2SHORT(SC_CLOSE, TRUE), 0); 


WinSendMsg (hSysSubMenu, MM_DELETEITEM, 
MPFROM2SHORT(sIDSep, FALSE), 0); 


Figure 13.4. Menus and task management: C source file. Concluded. 


14 
A sample application 


14.1 A program to monitor the swap file partition 


The swap file, SWAPPER.DAT, by default installed on your boot drive in the 
directory \OS2\SYSTEM, is the file OS/2 uses when it runs out of physical mem- 
ory when a request for more memory is received. For example, this request could 
occur when you start another application, or when a running program reads in a 
data file. Under DOS you would receive an error message indicating that there is 
not enough memory. However, under OS/2 this is not necessarily the case. If there 
is space on the partition on which the swap file is installed then it will be expanded 
to hold any pages (segments in 16-bit OS/2) that have not been used recently so 
that the memory request can be satisfied. These swapped pages will be read into 
memory again if, and when, required. If, however, space runs out on the swap par- 
tition then you will receive message SYS1477 as follows: 


SYS1477: Warning! The partition containing the 
SWAPPER.DAT file is full. Youmay lose data. 


Do not ignore this message! Select Display help below 
for an explanation and possible recovery actions. 


EXPLANATION: The system requires additional virtual memory, 
but cannot expand the size of the swapfile to satisfy this 
TeQuest. 

ACTION: Reduce the virtual memory requirement by closing 
applications, or increase the amount of available space on 
the partition by deleting unwanted files. 


Now, one major advantage of OS/2 version 2.0 over version 1.x is its ability to 
shrink the swap file if any pages are no longer required, for example when closing 
an application that has pages swapped out. In version 1.x the only way to reduce 
the size of the swap file is to restart the system. The size to which this file can 
expand is obviously important since, together with the physical memory in your 
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system, it governs how much memory you can use in total. It is therefore advant- 
ageous to install your swap file in a partition which has a large amount of free 
space. To change its location you need to change the following statement: 


SWAPPATH=C: \OS2\SYSTEM 2048 3072 


in your CONFIG.SYS to point to the new location. The two figures, 2048 and 
3072, are the minimum free space, in kilobytes, allowed on the partition before 
OS/2 issues a warning, and its initial size, respectively. These may be different 
on your system. Note that you will not receive a warning if an application writes 
data to the partition and causes the free space to fall below this value; you will 
only receive it if the swap file needs to increase, by which time it may be too late. 

It would be useful if we could monitor the state of this file and the partition on 
which it resides and receive advance warning of an impending ‘out of memory’ 
situation. This program, SWAPMON, does just that, and uses many of the tech- 
niques mentioned in this book, including threads, timers, slider controls, inter- 
thread communication, enumeration and much more. 


14.2 Program summary 


The program comprises two windows, one in which to display the partition stat- 
istics: 


Swap file location 
Partition size 
Total space used 
Swap file size 
Free space 


and the other to display a read-only slider representing the space used on the parti- 
tion as a percentage of the partition size. Figure 14.1 shows the two windows in 
their default state. Both are sizeable, and the statistics window can be minimized 
or hidden. In order to save valuable space on the screen, the two important stat- 
istics, free space and swap size, are displayed at the bottom so that they can still 
be viewed when the window height is reduced. The title bars of both windows 
can also be removed to reduce space further. 

The background colour and font of each window can be changed by dragging 
the selected colour or font from its respective palette, which can be found in the 
System Setup folder, and dropping onto the relevant window. In addition, 
the colour of all attributes can be changed using a colour change dialog. 

Each window has its own pop-up menu, rather than a menu bar, with the main 
window’s pop-up menu having the following options: 


® Gauge Displays or hides the slider. It is hidden by default. 
@® Keep on Top Keeps the statistics on top of all other windows. 
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Partition size: 31377408 


Total space used: 23826432 
swap size: 4194304 
Free space: 7550976 





Figure 14.1. Swap partition monitor (default windows). 


e Sound Sounds a series of ascending notes when the swap file increases and a 
descending series when it shrinks. 

@® Colour Displays a dialog box from which you can change the colours of both 
windows. 

e Title Bar Toggles the title bar on and off. 


The gauge’s pop-up menu has the following options: 


Vertical Shows a vertical gauge. 

Horizontal Shows a horizontal gauge. 

Keep on Top. Keeps the gauge on top of all other windows. 
Title Bar Toggles the title bar on and off. 


Both menus are activated by pressing mouse button 2 when the mouse pointer is 
over the relevant window. Figure 14.2 shows one of many possible configurations. 
While the program is running, a secondary thread looks at the swap partition 
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Figure 14.2. Swap partition monitor (possible configuration). 


every second and if anything has changed it communicates the data back to the 
main window procedure for display. If it detects that the free space has fallen 
below a predetermined danger level, 3 Mb in this case, a dialog box is displayed 
with a suitable warning. This dialog box has no user interface and so cannot be 
dismissed; it remains on the desktop until the free space rises above the limit, 
when the program automatically destroys it. 

The program is written as 12 separate modules: 


SWAPMON.C_ The main procedure. 

GETSTATS.C Thread to retrieve the partition statistics. 

GAUGEWND.C_ Window procedure for the gauge. 

SLIDER.C_ Creates the slider control. 

SUBCLASS.C Two subclass procedures, one to enable the gauge window to 
be sized smaller than the default, and the other to subclass the slider control in 
order to trap the WM_BUTTON2DOWN and WM_PRESPARAMCHANGED messages. 
MAINWND.C Statistics window procedure. 

DLGWND.C_ Colour change dialog box procedure. 

CHNGCOL.C Procedure to perform the actual colour change. 
STRTORGB.C Converts a string of three numbers to an RGB structure. 
RGBTOSTR.C Converts an RGB structure back to a string of three numbers. 
STRTOLNG.C Converts a string of three numbers to a LONG value. 
GAUGEFRM.C_ Obtains the handle of the gauge window’s frame. 


Let us now look at each module in detail. 


14.2.1 SWAPMON.C 


This is the main routine. We register two window classes, one for the main, or stat- 
istics, window and the other to contain the slider, or gauge. We then create both 
windows invisibly, start our second thread to monitor the partition and add the 
program to the window list. Because we want our options saved from one invoca- 
tion to another, we save all the details in the OS2.INI file, so when the program 
next starts it can retrieve the relevant data. At this point we need to restore the 
previously saved size and position of the main window, but if this is the first 
time the program has run then we default the size and centralize it on the desk- 
top; otherwise we just show it. 

Having successfully retrieved the previously saved state of our statistics window, 
we start the message processing loop and continue until a WM_QUIT message 1s 
received, when we clean up and terminate. SWAPMON.C is listed in Fig. 14.3. 
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#define INCL_DOSPROCESS 
#define INCL_WINSYS 

#define INCL_WINFRAMEMGR 
#define INCL_WINWINDOWMGR 
#define INCL_WINSHELLDATA 
#Gdefne INCL_WINSWITCHLIST 


#define STACKSIZE 4096 


#include <os2.h> 

#include <string.h> 
#include <stdlib.h> 
#include "swapmon.h" 


MRESULT EXPENTRY MainWndProc (HWND, ULONG, MPARAM, MPARAM) ; 
MRESULT EXPENTRY GaugeWndProc (HWND, ULONG, MPARAM, MPARAM) ; 
MRESULT EXPENTRY SubFrameProc (HWND, ULONG, MPARAM, MPARAM) ; 
VOID _System GetStats (VOID * ULONG) ; 


PFNWP OldFrameProc; 


ahaa a ae Global Varzreblesg <-<--<+ a 

/* Application name used in INI file = J 

/* Application title from RC file sa 5 

/* ei a a a ac ph ay ga gt St ee ca eae gaat te hn ae Oe wf 
CHAR szAppName[] = "SwapMonitor", 


szTitle[40]; 


fBEERERKRELEK KERR EARERSERERE KLE EKEKKAR RHE ERK REE RR RRAER EEE ME / 


INT main (void) 


{ 


HAB hab; 

HMO hmq; 

HWND hwndFrame, 
hwndClient, 
hGaugeFrame, 
hGaugeClient; 

QOMSG Qmsg; 

ULONG flFrameFlags; 

CHAR szSTitle[40]; 


SWCNTRL PomEntry; 





Figure 14.3. Swap partition monitor: SWAPMON.C. Continues. 
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LONG 1X_ Left, 
iY Bot, 
lHeight, 
lWidth, 
1ScrHeight, 
1ScrWidth; 
TID tidStats; 


[RRKKKKEKKEKRKKKEKKKKKKKKKKEKEK KKKKKKKKKKKKKKKKKEKKKEKKKEKKKKEKKKKKEKKEKE / 


hab = WinInitialize(0); 
hmg = WinCreateMsgQueue (hab, 0); 


WinRegisterClass(hab, "SwapMon", MainWndProc, 
CS_ SIZEREDRAW, 0); 

WinRegisterClass(hab, "SwapGauge", GaugeWndProc, 
CS_SIZEREDRAW, 0); 


WinLoadString (hab, (HMODULE)NULL, ID_TITLE, 
sizeof(szTitle), szTitle) ; 

WinLoadString (hab, (HMODULE)NULL, ID_STITLE, 
sizeof (SzSTitle), szSTitle) ; 


flFrameFlags = FCF_TITLEBAR | FCF_SIZEBORDER | 
FCF_NOBYTEALIGN; 


hGaugeFrame = WinCreateStdWindow(HWND_DESKTOP, 0, 
&flFrameFlags, 
"SwapGauge", szSTitle, 
QO, (HMODULE) NULL, 
ID_SLIDERWND, 
&hGaugeClient ) ; 


OldFrameProc = WinSubclassWindow (hGaugeFrame, 
(PFNWP) SubFrameProc) ; 


flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU | FCF_MINBUTTON | 
FCF_ICON | FCF_SIZEBORDER | FCF_ACCELTABLE | 
FCF _NOBYTEALIGN; 


hwndFrame = WinCreateStdWindow(HWND_DESKTOP, 0, 
&flFrameFlags, 
"SwapMon", szTitle, 
0, (HMODULE) NULL, 
ID_MAINWND, &hwndClient); 


Figure 14.3. Swap partition monitor: SWAPMON.C. Continues. 
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DosCreateThread(&tidStats, (PFNTHREAD)GetStats, 
(ULONG) hwndClient, 0, STACKSIZE) ; 
/* sec ths aca eee ae ey eh ls oe te ek a te * / 
/* Add towindow list */ 
/* ad peewee Sa oe ga ages eh a a a te * / 
PomEntry.hwnd = hwndFrame; 
PomEntry .hwndiIcon = (HWND) NULL; 
PomEntry.hprog = (HPROGRAM) NULL; 
PgmEntry.idProcess = (PID)NULL; 
PgmEntry.idSession = (ULONG) NULL; 
PgmEntry.uchVisibility = SWL_VISIBLE; 
PomEntry. fbJump = SWL_JUMPABLE; 
strcpy (PgmEntry.szSwtitle, szTitle); 
WinAddSwitchEntry(&PgmEntry) ; 
if (!WinRestoreWindowPos (szAppName, "StatsSizePos", 
hwndFrame) ) 
{ jf sr ms a cl sf 
/* Set default size and */ 
/* position and at 3 
/* centralize window / 
/* ee re ee a eee er ene * / 
1ScrWidth = WinQuerySysValue(HWND_DESKTOP, SV_CXSCREEN) ; 
1ScrHeight = WinQuerySysValue (HWND_DESKTOP, SV_CYSCREEN) ; 
1Width = DEFAULT _WIN_X; 
lHeight = DEFAULT _WIN_Y; 
LX Lett = (LSerWidth - 1Width) / 2; 
1Y_Bot = (1ScrHeight - lHeight) / 2; 
WinSetWindowPos(hwndFrame, 0, 1X _Left, 1Y_ Bot, 1lWidth, 
lHeight, SWP_SIZE | SWP_MOVE | 
SWP_SHOW | SWP_ACTIVATE) ; 
} 
else 
WinShowWindow (hwndFrame, TRUE) ; 
while (WinGetMsg(hab, &gmsg, (HWND)NULL, 0, 0)) 
WinDispatchMsg(hab, &gmsqg) ; 
/* a ae pesca a He a ce eh ty pe anes Beer tN a a le se * / 
/* Remove from window list and clean up */ 
/* ge pa ag pe gees gcd acca hh wh Se aed SL Bn gt a gee a hes * / 





Figure 14.3. Swap partition monitor: SWAPMONC.C. Continues. 
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WinRemoveSwitchEntry (WinQuerySwitchHandle(hwndFrame, 0)); 
WinDestroyWindow (hwndFrame) ; 

WinDestroyWindow (hGaugeFrame) ; 

WinDestroyMsg Queue (hmq) ; 

WinTerminate (hab) ; 

return 0; 


Figure 14.3. Swap partition monitor: SWAPMON.C. Concluded. 


14.2.2 GETSTATS.C 


This is the monitor thread. Its first task is to find SWAPPER.DAT. Now there are 
at least two ways this can be done. The first is to scan the CONFIG.SYS and 
search for the SWAPPATH statement; the other is to use the DPATH environment 
variable. The SET DPATH statement in your CONFIG.SYS defines which direc- 
tories a program should search when looking for a data file, and to do this the pro- 
gram uses DosSearchPath. The latter method has been used in Fig. 14.4 (not 
enough use has been made of this useful facility in the past). The only disadvant- 
age of this method, however, is that if you subsequently move the swap file then 
you must ensure that the DPATH statement contains the drive and directory of 
its new location and that you remove the old SWAPPER.DAT. By default, the 
DPATH already contains the path to SWAPPER.DAT. 

To make use of the DPATH, we call DosSearchPath, and if SWAPPER.DAT 
is not found we post a user message, UM_NOSWAPPER, back to our main client 
window and exit the thread. Note here that we have passed the client window 
handle as a parameter to this thread, a new feature of the DosCreateThread 
function, and because we are using WinPostMsg rather than WinSendMsg we 
do not need a message queue. Assuming this is successful, we take the first byte of 
the returned path name to the file, which is the drive letter, and convert it to the 
drive number. Now, because the ASCII decimal number for A is 65, we 
subtract 64 from it giving us 1 for drive A, etc. We use this value in a call to 
DosQueryFSInfo to retrieve the drive statistics for our swap partition. We then 
post another user message, UM_SWAPPER_FOUND, back to our main window 
procedure, passing the path name of our swap file and the partition size as para- 
meters mp1 and mp2 respectively. Having done this bit of initialization, the moni- 
tor thread can get down to work in an endless loop. All it does is call 
DosFindFirst to retrieve the swap file size and then call DosQueryFSInfo 
again to get the drive statistics. 

If the free space has fallen below our limit, we post a UM_DANGER message back 
to the main window procedure with the mp1 parameter set to 1. If the space is now 
above the limit and we were below it, we post another UM_DANGER message with 
mpl set to 0 to signal that everything is all right again. 
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If there are no danger signs and the statistics have changed, that is, the free space 
has changed, we post a UM_STATS_CHANGED message, passing the swap file size 
and free space as parameters. 

The thread then goes to sleep for a second before repeating the entire process. 
Note here that because we are not in a message processing loop we can quite 
happily use DosSleep. If we had wanted to put this processing in our main 
window procedure then we would have created a one-second timer and done 
this processing in the WM_TIMER case statement, thus eliminating the endless 
loop and DosSleep. 


#define INCL_DOSMISC 
#define INCL _DOSFILEMGR 
#define INCL _DOSPROCESS 
#define INCL WINMESSAGEMGR 


#include <os2.h> 
#include "Swapmon.h" 


[FREESE RAKEASELEAEEREAAEARE EAE RAL RE RLEREAL SEERA EERE RARE RARER ERR RS f 


VOID _System GetStats (VOID * parm) 
{ /* Get partition statistics */ 
HWND hwndClient; 
CHAR szPathName [CCHMAXPATH] ; 
FSALLOCATE Drivelnfo; 
FILEFINDBUF3 InfoBuf; 


BYTE bDrive; 

ULONG ulPartSize, 
ulSwapSize, 
ulFreeSpace, 
ulPrevFreeSpace, 
ULAEEFID, 
cSearch; 

HDIR nar: 

BOOL fDangerPosted; 

hwndClient = (HWND) parm; 


EDangerPosted = FALSE; 


if (DosSearchPath(3, "DPATH", "SWAPPER.DAT", 
szPathName, sizeof (szPathName) ) ) 





Figure 14.4. Swap partition monitor: GETSTATS.C. Continues. 
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WinPostMsg (hwndClient, UM_NOSWAPPER, 0, 0); 
DosExit (0, 0); 
} 


bDrive = szPathName[0] - 64; /* Convert to drive number, A=1 etc */ 


DosQueryFSInfo((ULONG) bDrive, 1, &DrivelInfo, 
sizeof (Drivelnfo) ); 


ulPartSize = DriveInfo.cSectorUnit * DriveInfo.cUnit * 
DrivelInfo.cbSector; 
WinPostMsg(hwndClient, UM_SWAPPER_FOUND, 
(CHAR *) (SzPathName) , 
MPFROMLONG (ul PartS1ize) ); 


hdir = HDIR SYSTEM: 
WLARETID = Oy 
esearch = 1: 


ulPrevFreeSpace = 0; 


while (TRUE) 


{ 
DosFindFirst(szPathName, &hdir, ulAttrib, &InfoBuf, 
sizeof (InfoBuf), &cSearch, FIL STANDARD) ; 
ulSwapSize = InfoBuf.cbFile; 


DosQueryFSInfo((ULONG) bDrive, 1, &DrivelInfo, 
sizeof (DrivelInfo) ); 
ulFreeSpace = DriveInfo.cSectorUnit * 
DriveiInfo.cUnitAvail * 
DriveiInfo.cbSector; 


if (ulFreeSpace <= DANGER_LEVEL && ! fDangerPosted) 


WinPostMsg(hwndClient, UM_DANGER, MPFROMSHORT (1), 0); 
fDangerPosted = TRUE; 
} 


if (fDangerPosted) 


{ 
if (ulFreeSpace > DANGER_LEVEL) 


WinPostMsg (hwndClient, UM_DANGER, 0, 0); 
fDangerPosted = FALSE; 





Figure 14.4. Swap partition monitor: GETSTATS.C. Continues. 
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if (ulFreeSpace != ulPrevFreeSpace) 


ulPrevFreeSpace = ulFreeSpace; 

WinPostMsg (hwndClient, UM_STATS CHANGED, 
MPFROMLONG (ulSwapSize), 
MPFROMLONG (ulFreeSpace) ) ; 


} 
DosSleep(1000); /* Wait Cor | second */ 


Figure 14.4. Swap partition monitor: GETSTATS.C. Concluded. 


14.2.3 GAUGEWND.C 


This is the window procedure for the gauge window. It contains just one control, a 
read-only slider, and that control fills the entire client area of the window. When 
the gauge window is being created, we create the slider control by calling Creat e- 
Slider which returns a handle to it, hSlider. At this point we also save the 
frame handle of the gauge window which we will need several times during the pro- 
cessing of this procedure. We also need to read the profile to ascertain the previous 
state of the application. At this time we need to know the slider bar colour, whether 
it should remain on top of all other windows and whether the title bar should 
be visible. The default values for these are, black, not on top and a visible 
title bar, respectively. We convert the string for the bar colour to a LONG 
value using StrToLong, since it is stored as RGB values rather than pure 
colours. 

At this point we do not know if the gauge is going to be visible or not, and 
we will not know until the statistics window is created, when we will receive a 
UM_SHOW or UM_HIDE message. Assuming the gauge is to be visible, we 
will receive a UM_SHOW message and so we obtain the gauge’s attitude, vertical or 
horizontal, and display it using the previously saved size and position. Do not 
forget that when we use WinStoreWindowPos the window’s presentation 
parameters are also saved, so if we previously dragged a different font, or colour, to 
the gauge window then this will also be restored. We now need to determine 
whether the window should remain on top and if the title bar is required. The 
flags f£Top and fTitle tell us this, so to ensure the window is displayed in its 
correct state we simulate the user pressing the menu items. For this reason 
we temporarily reverse the state of these flags in order for the menu processing to 
act accordingly. If the window is to be hidden then we also turn off the timer, if it 
was on, since there is no point in having it running if there is no window visible. 
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This does mean, of course, that if you request the gauge at some later time, you will 
also need to select the Keep on Top option again. 

To ensure the slider control always occupies the entire gauge client window, we 
trap the WM_SIZE message and resize it accordingly. 

Because we have made it possible to change the colour of the slider shaft, or indi- 
cator strip as we will call it, we must make the slider ownerdraw and draw the shaft 
ourselves. We do this in the WW_DRAWITEM message. Its colour is already stored in 
1BarColour and is initially black. Whenever the colour dialog box is selected 
from the main window’s pop-up menu, and the indicator strip’s colour is chan- 
ged, a UM_NEWBAR message Is posted to this procedure with the new colour stored 
in mp1, so all we need to do here is invalidate the slider to cause a repaint, and 
hence a WM_DRAWITEM to be sent. We also take advantage of the 
WM_DRAWITEM message to paint the gauge background. Its colour is stored 
in 1BgndCol, and is initially white. Like the strip colour above, a message 
is posted here whenever the colour is changed, this time it is a UM_NEWGBGND 
message. 

We now have the four menu options to deal with. Whenever a menu item is 
selected, a WM_COMMAND message is sent with the low SHORT of mp1 set to the 
menu item’s identity. The four options we have are: Vertical (MI_ VERT), 
Horizontal (MI _ HORIZ), Keep on Top (MI TOP), and toggle the Title 
Bar on and off (MI _TITLEBAR). But before we can select an item the menu 
must be displayed. The problem here is that we do not yet have the window handle 
of this menu since it is loaded in the slider’s subclassed procedure, SubSlider- 
Proc in SUBCLASS.C. To overcome this, SubSliderProc sends us a 
UM_PASSHWND user message the first time mouse button 2 is pressed, with the 
handle stored in the mpl parameter. We also use this message to check, or 
enable, the menu items as appropriate. 

If we press Vertical we disable it from the menu and enable Horizontal 
and then change the slider’s style from SLS_ HORIZONTAL to SLS_VERTICAL. 
We do this by calling WinSetWindowULong. We also save the current attitude 
(vertical) in the profile and either redisplay the window in its previous position 
or use the default, depending on whether the program has been run before or 
not. We do similar processing for the pressing of the Horizontal menu item. 
If we select Keep on Top then we toggle the check mark and start, or stop, a 
one-second timer, and so every second we call WinSetWindowPos to put the 
window back on top. Notice that we do not activate the window as this would 
indeed cause problems. Similarly, if we press Title Bar then we toggle it on 
and off. To turn the title bar off we just set its parent to HWND_OBJECT, and to 
turn it on again reset its parentage to the gauge frame window. We must, 
however, send the frame a WM_UPDATEFRAME message to activate the 
change and tell it what controls have been modified. For this window it is just the 
title bar. 

Finally, whenever the application is closed, the window receives a UM_SAVEAPP 
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message, sent from the main window procedure, so that the window’s current 
size, position, presentation parameters, Z-order and title bar state can be saved. 
GAUGEWND.C is listed in Fig. 14.5. 


#define INCL_GPIBITMAPS 
#define INCL_GPILOGCOLORTABLE 
#define INCL_WINFRAMEMGR 
#define INCL_WININPUT 

#define INCL_WINMENUS 

#define INCL_WINSHELLDATA 
#define INCL_WINSTDSLIDER 
#define INCL_WINSYS 

#define INCL_WINTIMER 

#define INCL_WINWINDOWMGR 


#include <os2.h> 

#include <string.h> 
#include <stdlib.h> 
#include "Sswapmon.h" 


LONG StrToLong (PSZ); 
HWND CreateSlider(HWND) ; 


CHAR szAppNamel[]; 


LEREETEKAKELRKAEARCKTKRER ERK LEEK ERERE KR SRK SRAKER FRA ERE ARES / 


MRESULT EXPENTRY GaugeWndProc (HWND hwnd, ULONG msg, 
MPARAM mp1, MPARAM mp2) 


Static HWND hSlider, 
hGaugeFrame, 
hTitleBar, 
hMenu; 
Static LONG 1BarColour, 
IBandCol ; 
Static CHAR szAtt[2]; /* Gauge attitude - vertical/horizontal */ 


static BOOL fTop = FALSE, 
ETitle = TRUE: 


CHAR gzColeli2), /* Indicator strip colours, RGB */ 
szTop(2], /* Keep gauge on top? * 
szTitleBar[2]; /* Title bar visibility af 
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POWNERITEM pOwner; 
RECTL rel; 


Switch (msg) 


{ 


case WM_CREATE: 
hSlider = CreateSlider (hwnd) ; 
hGaugeFrame = WinQueryWindow(hwnd, QW_PARENT) ; 
hTitleBar = WinWindowFromID (hGaugeFrame, 
FID _TITLEBAR) ; 
PrfQueryProfileString (HINI_PROFILE, szAppName, 
"GaugeBar", "000", szCols, 12); 
PrfQueryProfileString (HINI_PROFILE, szAppName, 
"GaugeTop", "N", szTop, 2); 
PrfQueryProileString (HINI_PROFILE, szAppName, 
"GaugeTitleBar", "Y", 
ezTitleBar, 2); 
LBarColour = StrTobong(szCols) ; 


zE (ezTop([0] == "Y¥*") 

flop = TRUE? /* Keep on top * if 
if (ezTitieBar{ 0] == *“N*} 

fTitle = FALSE; /* Invisible title bar */ 
break; 


case UM_SHOW: 
PrfQueryProfileString (HINI_PROFILE, szAppName, 
"GaugeAtt", "V", 
SZALL, 2)? 
if (ezAce lO} == "¥" ) 
{ 
if (!WinRestoreWindowPos (szAppName, 
"GaugeVSizePos", hGaugeFrame) ) 
WinSetWindowPos (hGaugeFrame, 0, 0, 0, 
DEFAULT _VERT_X, 
DEFAULT _VERT_Y, 
SWP_SIZE | SWP_MOVE) ; 
} 
else 
{ 
if (!'WinRestoreWindowPos (szAppName, 
"GaugeHSizePos", hGaugeFrame) ) 
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WinSetWindowPos (hGaugeFrame, 0, 0, 0, 
DEFAULT _HORIZ_ xX, 
DEFAULT_HORIZ_Y, SWP_SIZE | SWP_MOVE) ; 
} 
WinShowWindow (hGaugeFrame, TRUE) ; 
if (fTop) 
{ 
fTop = FALSE: 
/* Will be set back to TRUE in MI_TOP */ 
WinSendMsg (hwnd, WM_COMMAND, 
MPFROMSHORT (MI_TOP), 0); 


af (1 fT tLe) 


fTitle = TRUE; 
/* Will be set back to FALSE in MI_TITLEBAR */ 
/* Simulate menu select * 
WinSendMsg (hwnd, WM_COMMAND, 
MPFROMSHORT (MI_TITLEBAR), 0); 
/* Simulate menu select */ 
} 


break; 


case UM_HIDE: 
WinShowWindow (hGaugeFrame, FALSE) ; 
/* Switch off timer, no point having it if not visible */ 
Lt (rT Tom) 
WinPostMsg (hwnd, WM_COMMAND, 
MPFROMSHORT (MI_TOP), 0); 
break; 


case WM_SIZE: 
WinQueryWindowRect (hwnd, &rcl)j; 
WinSetWindowPos(hSlider, HWND_TOP, 0, 0, 
rcl.xRight, rcl.yTop, SWP_SIZE | 
SWP_MOVE | SWP_SHOW | SWP_ZORDER) ; 
break; 


case UM_NEWBAR: 
l1BarColour = LONGFROMMP (mp1) ; 
WinInvalidateRect (hSlider, NULL, FALSE) ; 
break; 
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case UM_NEWGBGND: 
l1BgndCol = LONGFROMMP (mp1) ; 


WinInvalidateRect (hSlider, NULL, FALSE); 
break; 


case WM_DRAWITEM: 

pOwner = (POWNERITEM) mp2; 

1£ (pOwner->1idItem == SDA_RIBBONSTRIP) 

{ 
GpiCreateLogColorTable(pOwner->hps, LCOL_ RESET, 

LCOLF_RGB, 0, 0, NULL); 
WinFillRect (pOwner->shps, &pOwner->rclitem, 
LpaLeoLour) : 

return (MRESULT) TRUE; 


1f (pOwner->idItem == SDA BACKGROUND) 


GpiCreateLogColorTable(pOwner->hps, LCOL RESET, 
LCOLF RGB, 0, 0, NULL) ; 
WinFillRect (pOwner->hps, &pOwner->rclitem, 
LBondCol } ; 
return (MRESULT) TRUE; 
} 
return (MRESULT) FALSE; 


case UM_PASSHWND: 
hMenu = HWNDFROMMP (mp1) ; 
WinCheckMenultem(hMenu, MI_TOP, £Top) ; 
WinCheckMenulItem(hMenu, MI_TITLEBAR, fTitle) ; 


LE [6@zZAEL iO] =e Vy" 
WinEnableMenulItem(hMenu, MI_VERT, FALSE) ; 
else 


WinEnableMenultem(hMenu, MI_HORIZ, FALSE) ; 
break; 


case WM_COMMAND: 
Switch (SHORTIFROMMP (mp1) ) 
{ 
case MI_VERT: 
Lt (SZzAtc (C0) == *B*) 


/* Changing from horizontal */ 


Figure 14.5. Swap partition monitor: GAUGEWND.C. Continues. 


A sample application 303 


WinStoreWindowPos (szAppName, 
"GaugeHSizePos", 
hGaugeFrame) ; 

WinEnableMenultem(hMenu, MI_VERT, FALSE) ; 

WinEnableMenultem(hMenu, MI_HORIZ, TRUE) ; 

Sstrepy (szatr, "V"}s 

PrfWriteProfileString(HINI_PROFILE, 

szAppName, 
"GaugeAtt", 
SzAtt); 

WinSetWindowULong(hSlider, QWL_STYLE, 
WinQueryWindowULong 
(hSlider, QWL_STYLE) & 
~SLS_ HORIZONTAL) ; 

WinSetWindowULong (hSlider, QWL_STYLE, 
WinQueryWindowULong 
(hSlider, QWL_STYLE) 
| SLS VERTICAL) 2 

} 

if (!WinRestoreWindowPos (szAppName, 
"GaugeVSizePos", 
hGaugeFrame) ) 

WinSetWindowPos (hGaugeFrame, HWND_TOP, 

O;, OO, DEFAULT VERT xX, 

DEFAULT _VERT_Y, 

SWP_SIZE | SWP_MOVE | 

SWP_SHOW | SWP_ZORDER) ; 
else 

WinSetWindowPos (hGaugeFrame, 

HWND_TOP, O, O, O, O, 
SWP_SHOW | SWP_ZORDER) ; 
break; 


case MI _HORIZ: 
LE (SeeReelo)] == *F*) 


/* Changing fromvertical */ 


WinStoreWindowPos (szAppName, "Gauge VSizePos", 
hGaugeFrame) ; 

WinEnableMenultem(hMenu, MI_VERT, TRUE) ; 

WinEnableMenultem(hMenu, MI_HORIZ, FALSE) ; 
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Sstrepy (SzAtt, "“H"); 
PrfWriteProfileString(HINI_PROFILE, 
szAppName, 
"GaugeAtt", 
SszAtt) ; 
WinSetWindowULong(hSlider, QWL_STYLE, 
WinQueryWindowULong 
(hSlider, QWL_STYLE) 
& ~SLS_VERTICAL) ; 
WinSetWindowULong(hSlider, QWL_STYLE, 
WinQueryWindowULong 
(hSlider, QWL_STYLE) 
| SLS_ HORIZONTAL) ; 
} 
if (!WinRestoreWindowPos (szAppName, 
"GaugeHSizePos", 
hGaugeFrame) ) 
WinSetWindowPos (hGaugeFrame, HWND_TOP, 
0, 0, DEFAULT HORIZ xX, 
DEFAULT _HORIZ_Y, 
SWP_SIZE | SWP_MOVE | 
SWP_SHOW | SWP_ZORDER) ; 
else 
WinSetWindowPos (hGaugeFrame, HWND_TOP, 
0, 0, 0, 0, SWP_SHOW | 
SWP_ZORDER) ; 
break; 


case MI_TOP: 
Llop = Lif Top: 
WinCheckMenulItem(hMenu, MI_TOP, f£Top); 


Lc {tTop) 
WinStartTimer (WinQueryAnchorBlock (hwnd), 
WinWindowFromID 
(hGaugeFrame, FID CLIENT), 
2, L000)4 
else 
WinStopTimer (WinQueryAnchorBlock (hwnd) , 
WinWindowFromID 
(hGaugeFrame, FID CLIENT), 2); 
break; 


case MI_TITLEBAR: 
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Title = !€Title; 
WinCheckMenultem(hMenu, MI_TITLEBAR, fTitle); 


“i (lfPTitie) 
WinSetParent (hTitleBar, HWND OBJECT, FALSE) ; 


else 
WinSetParent (hTitleBar, hGaugeFrame, FALSE) ; 


WinSendMsg (hGaugeFrame, WM_UPDATEFRAME, 
MPFROMLONG (FCF_TITLEBAR), 0); 
break; 


default: 
break; 
} 
break; 
case WM_TIMER: 
WinSetWindowPos (hGaugeFrame, HWND_TOP, 0, 0, 0, 0, 


SWP_ZORDER) ; 
break; 
case UM_SAVEAPP: 
if (SezAtt [0] == *V") 
WinStoreWindowPos (szAppName, 
"GaugeVS1izePos", 
hGaugeFrame) ; 
else 
WinStoreWindowPos (szAppName, 
"GaugeHSizePos", 
hGaugeFrame) ; 
1£ (£Top) 


PrfWriteProfileString(HINI_PROFILE, szAppName, 
"GaugeTop", "Y"); 
else 
PrfWriteProfileString(HINI_PROFILE, szAppName, 
"GaugeTop", "N"); 


if (fTitle) 


PrfWriteProfileString(HINI_PROFILE, szAppName, 
"GaugeTitleBar", "Y"); 
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else 
PrfWriteProfileString(HINI_PROFILE, szAppName, 
"GaugeritleBar", "N"); 
break; 


return WinDefWindowProc (hwnd, msg, mpl, mp2); 


Figure 14.5. Swap partition monitor: GAUGEWND.C. Concluded. 


14.2.4 SLIDER.C 


This procedure (Fig. 14.6) creates the slider. It uses both scales, 0 to 100 for scale 2 
(left/bottom) and 5 to 95 for scale 1 (right/top). To show both scales we first paint 
the left-hand scale and then remove the SLS_PRIMARYSCALE2 style and paint the 
right-hand scale. The main problem here is that the slider occupies the entire client 
area of the gauge window and we need to trap the WM_BUTTON2 DOWN message so 
that we can make the menu pop up. Now the slider control itself traps this message, 
so, in order to use it we need to subclass the control, see Sec. 14.2.5. We also set the 
foreground colour using WinSet PresParam and the background colour by post- 


ing a UM_NEWGBGND message back to the gauge window procedure. 


#define 
#define 
#define 
#define 
#define 


INCL _WININPUT 
INCL_WINSHELLDATA 
INCL_WINSTDSLIDER 
INCL _WINSYS 
INCL_WINWINDOWMGR 


finclude <os2.h> 
finclude <stdlib.h> 


#include 


MRESULT EXPENTRY SubSliderProc (HWND, ULONG, MPARAM, MPARAM) ; 


LONG 


PFNWP 


CHAR 


PREELRHEEERERE ER LEKEKERE EKER EEREEKARKLRERER KEKE REALS EARLS RA AK KLAR 


"Swapmon.h" 


StrToLong(PSZ); 


OldSliderProc; 


szAppName[]; 


Figure 14.6. Swap partition monitor: SLIDER.C. Continues. 


A sample application 307 


HWND CreateSlider (HWND hwnd) 


{ 
SLDCDATA sldcData; 


HWND hSlider; 

ULONG ulSliderStyle; 

LONG l1BgndCol, 
l1ForeCol; 

USHORT Lo 

CHAR SZTexXE [5], 
ezColel[iZzl, 
SZALL IZ] 3 


/ 


sldcData.cbSize = sizeof (SLDCDATA) ; 

/* 0 -> 100% inincrements of 5 */ 
sldcData.usScaleliIncrements = 21; 
sldcData.usScalelSpacing = SCALE SPACING / 2; 

/* 0 -> 100% in increments of 10 */ 
sldcData.usScale2Increments = 11; 
sldcData.usScale2Spacing = SCALE _ SPACING; 
PrfQueryProfileString(HINI_PROFILE, szAppName, 

"GaugeAtt", "V", szAtt, 2); 
it {(SzZAcE [0] == "*¥* } 
ulSliderStyle = SLS_VERTICAL | SLS_ READONLY | 
SLS_RIBBONSTRIP | SLS_OWNERDRAW | 
SLS_PRIMARYSCALE2 | SLS_OWNERDRAW; 
else 
ulSliderStyle = SLS_ HORIZONTAL | SLS READONLY | 
SLS_RIBBONSTRIP | SLS_OWNERDRAW | 
SLS_PRIMARYSCALE2 | SLS_OWNERDRAW; 


hSlider = WinCreateWindow(hwnd, WC_SLIDER, "", 
ulSliderStyle, 0, 0, 0, 0, 
hwnd, HWND_TOP, ID_SLIDER, 
&SldcData, 0); 


OldSliderProc = WinSubclassWindow(hSlider, 
(PFNWP) SubSliderProc) ; 


PrfQueryProfileString(HINI_PROFILE, szAppName, 
"GaugeBona", "255 255 255", 
S7Cols, 12h 

lBgnaCol = StrfoLong (szCols): 

WinPostMsg (hwnd, UM_NEWGBGND, MPFROMLONG(1BgndCol), 0); 
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PrfQueryProfileString(HINI_PROFILE, szAppName, 
"GaugeFgnd", "000", 
szCols, 12); 
lForeCol = StrToLong(szCols); 
WinSetPresParam(hSlider, PP_FOREGROUNDCOLOR, 
sizeof(lForeCol), &lForeCol); 


for (I =0; I <= sldcData.usScale2Increments; I++) 
{ 
—itea(tT*10, szText, 10); 
WinSendMsg(hSlider, SLM_SETSCALETEXT, MPFROMSHORT (I), 
SszText ) ; 
WinSendMsg(hSlider, SLM_SETTICKSIZE, MPFROM2SHORT (I, 
Bi, O}4 
} 
WinSetWindowULong(hSlider, QWL_STYLE, 
WinQueryWindowULong (hSlider, 
QWL_ STYLE) & ~SLS_PRIMARYSCALE2) ; 
for (Il=1; I <=sldcData.usScalelIncrements; I+=2) 
{ 
itea(l*5, szText, 10); 
WinSendMsg(hSlider, SLM_SETSCALETEXT, MPFROMSHORT (I), 
BzText ) 3 
WinSendMsg(hSlider, SLM_SETTICKSIZE, MPFROM2SHORT (I, 
S), O}3 
} 


return hSlider; 


} 


Figure 14.6. Swap partition monitor: SLIDER.C. Concluded. 


14.2.5 SUBCLASS.C 


This module contains two subclassed procedures: SubFrameProc and 
SubSliderProc (Fig. 14.7). The first of these does no more than allow the 
gauge window frame to be reduced to 15 pels wide and 25 pels high. The other 
procedure is necessary so that we can trap the WM_BUTTON2DOWN and 
WM_PRESPARAMCHANGED messages. 

When mouse button 2 is pressed we obtain the gauge frame window handle and, 
if this is the first press, load the pop-up menu, making the gauge client window the 
owner, and pass its handle to the gauge window procedure using the 
UM_PASSHWND message. We do this so that the menu requests can be processed 
in the gauge window procedure. All that needs to be done now is to find the mouse 
pointer position whenever the button is pressed, map it to our gauge and pop up 
the menu. Note here that we use PU_LHCONSTRAIN and PU_VCONSTRAIN so that 
the menu does not disappear off the desktop. 
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We trap the WM_PRESPARAMCHANGED message so that we can save the new 
background colour and font if they are changed by dragging them from the colour 
and font palettes. If the colour is changed we need to query the new colour using 
WinQueryPresParam, post it back to the gauge window procedure and then 
convert it to RGB values so that it can be written to the profile. We store it just 
in case the colour is changed using the colour change dialog, in which case we 
want the latest colour to be reflected for the gauge background. If the font is chan- 
ged then we again need to query it so that we can set it for the gauge client window. 
This is to ensure that the pop-up menu inherits the same font. As with the colour, 
we save the new font in the profile by using WinStoreWindowPos. 


#define INCL _GPIBITMAPS 
#define INCL WINFRAMEMGR 
#define INCL_WININPUT 
#define INCL WINMENUS 
#define INCL _WINPOINTERS 
#define INCL _WINSHELLDATA 
#define INCL _WINSTDSLIDER 
#define INCL _WINSYS 
#define INCL _WINTRACKRECT 
#define INCL _WINWINDOWMGR 


#include <os2.h> 
#include <string.h> 
#include <math.h> 
#include "Swapmon.h" 


HWND GetGaugeFrame (VOID); 
PSZ RGBToStr (RGB) ; 
PFNWP OldFrameProc; 

PFNWP OldSliderProc; 

CHAR szAppName [ ] ; 


PRESS RAR SEES Me ee eS ee eS a ee Ee ee a ee ee ee a eZ 


MRESULT EXPENTRY SubFrameProc(HWND hwnd, ULONG msg, MPARAM mpl, 
MPARAM mp2 ) 


PTRACKINFO ptrack; 


Switch (msg) 


{ 
case WM_QUERYTRACKINFO: 
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}* Sass Py eS YS a en et nn sg ee ade ee pn a pa ays tes oat eee ns as: cea a an rect ng yea pee * / 
/* Invoke the default frame window procedure first */ 
/* in order to update the tracking rectangle x 
/* to the new position i 
/* Fa a Nh a BR ps ay ata a ps eg es ee es ee phe a ne Ng eet eg a Ee Me ES Be mf 


OldFrameProc (hwnd, msg, mpl, mp2); 


ptrack = (PTRACKINFO) mp2; 
ptrack->ptlMinTrackSize.x =15; 
ptrack->ptlMinTrackSize.y = 25; 


return ( (MRESULT) TRUE) ; 
} 
return OldFrameProc (hwnd, msg, mpl, mp2); 


} 


[RRKKKKKKKEKKKKEKEKKKKKKKKKEKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKK EK / 


MRESULT EXPENTRY SubSliderProc (HWND hwnd, ULONG msg, MPARAM mp1, 
MPARAM mp2 ) 


Static BOOL fFirstPress = TRUE; 
Static HWND hMenu; 


HWND hGaugeFrame; 

POINTL pt; 

double temp; 

RGB rgb; 

LONG 1BendcCol ; 

CHAR szCols[12]j, 
BZACLE [2 |, 
evronur (50) > 


Switch(msg) 
1 
case WM_BUTTON2DOWN: 
hGaugeFrame = GetGaugeFrame () ; 
if (fFirstPress) 
{ 
hMenu = WinLoadMenu (WinWindowFromIiID(hGaugeFrame, 
FID CLIENT), (HMODULE) NULL, 
ID_SLDRMENU) ; 
WinSendMsg (WinWindowFromID (hGaugeFrame, 
FID CLIENT) , UM_PASSHWND, 
MPFROMHWND (hMenu), 0); 
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fFirstPress = FALSE; 

} 

WinQueryPointerPos (HWND_DESKTOP, &pt) ; 

WinMapWindowPoints (HWND_DESKTOP, hwnd, &pt, 1); 

WinPopupMenu (hwnd, WinWindowFromID(hGaugeFrame, 
FID CLIENT), hMenu, pt.x, pt.v, QO, 
PU_HCONSTRAIN | PU_VCONSTRAIN | 
PU_KEYBOARD | PU_MOUSEBUTTON1) ; 


return (MRESULT) TRUE; 


case WM_PRESPARAMCHANGED: 
hGaugeFrame = GetGaugeFrame () ; 
if ((ULONG) mpl == PP_BACKGROUNDCOLOR) 
{ 
WinQueryPresParam(hwnd, PP_BACKGROUNDCOLOR, 0, 
NULL, sizeof (lBgndCol), 
& _LBondCol, 0): 
WinPostMsg (WinWindowFromID (hGaugeFrame, 
FID CLIENT) , UM_NEWGBGND, 
MPFROMLONG(1lBgndCol), 0); 
rob. bRed = lBondCol/6553 6; 
temp = fmod( (double) 1BgndCol, 65536.00) ; 
rgb.bGreen = temp/256; 
rgb. bBlue = fmod((double)temp, 256.00); 
strcpy (szCols, RGBToStr (rgb) ); 
PrfWriteProfileString (HINI_PROFILE, szAppName, 
"GaugeBgnd", szCols) ; 


1£ ((ULONG) mpl == PP_FONTNAMESIZE) 
{ 
WinQueryPresParam(hwnd, PP_FONTNAMESIZE, 0, NULL, 
sizeof(szFont), &SzFont, 0); 
/* Change font for pop-up menu * / 
WinSetPresParam(WinWindowFromID(hGaugeFrame, 
FID CLIENT), PP_FONTNAMESIZE, 
sizeof (szFont), &SzFont) ; 
PrfQueryProfileString (HINI_PROFILE, szAppName, 
"GaugeAtt", "V", 


SZACT, 2) 3 
if {SzZAreE [0] ea "3 
WinStoreWindowPos (szAppName, "GaugeVSizePos", 
hGaugeFrame) ; 
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else 
WinStoreWindowPos(szAppName, "GaugeHSizePos", 
hGaugeFrame) ; 


} 


break; 


} 
return OldSliderProc (hwnd, msg, mpl, mp2); 


Figure 14.7. Swap partition monitor: SUBCLASS.C. Concluded. 


14.2.6 MAINWND.C 


This is the main window procedure (Fig. 14.8). It displays the partition statistics 
and, like the gauge window, has its own pop-up menu. So, during its creation 
we load the menu, retrieve all the window handles we will be using and read in 
the previously saved state from the profile. Note that the slider window handle 
is obtained directly from the gauge client. We then check if the gauge window 
was previously displayed or not and reverse the state of the {Gauge flag prior 
to posting the MI_SLIDER message to simulate the menu selection. We also 
initialize the state of the statistics window in a similar way. 

The UM_NOSWAPPER message handles the situation where the program cannot 
find the swap file. It is posted by the Get Stats thread. If this happens then 
we put up a message box and post ourselves a WM_QUIT message to force termin- 
ation. Assuming the swap file has been found then GetStats posts a 
UM_SWAPPER_FOUND message with the mp1 and mp2 parameters set to the 
swap file’s path name and the partition size respectively. 

Whenever any event occurs that causes the free space on the swap partition to 
change, GetStats posts a UM_STATS_CHANGED message. The parameters on 
this message are the current swap size and total free space available. We are 
now able to calculate the total space used by all files on the partition and invalid- 
ate the window to cause a repaint, and hence display the values. We also need to 
update the position of the indicator strip on the gauge, so we must calculate its new 
length as a percentage of the partition size. With 40 pels representing 10 per cent, 0 
to 100 per cent gives us a total length of 400 pels, therefore the value we need is: 


(Total Used Space * SCALE SPACING * 10.00) / Partition Size 


Note that we use double precision to minimize rounding errors. All we do then is 
send an SLM _SETSLIDERINFO message to the slider and, if sound has been 
requested, sound a series of notes according to whether it is an increase or 
decrease in swap size. 
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The WM_PAINT message does nothing but clear the window using the latest 
background colour, set the foreground colour and write the text to the window. 

The next two user messages, UM_NEWBGND and UM_NEWFGND, are posted from 
the ChangeColour procedure in response to the statistics window colours being 
changed. 

The final user message, UM_DANGER, is posted by the Get Stats thread when- 
ever the free space falls below the danger limit, set to 3 Mb, or when, after falling 
below the limit, the free space rises again because of files being removed or the 
swap file being reduced in size. When the limit is reached we put up a dialog 
box, DLG_DANGER, which remains on the desktop until the free space rises above 
the limit again, when the dialog box is destroyed. Note that we do not have a dialog 
box procedure for this since there is no user interface. The only action that can be 
performed is move. 

As in SLIDER.C, we use mouse button 2 to activate the pop-up menu. This 
menu contains five options as mentioned earlier. Selecting Gauge will toggle the 
gauge window on or off; Keep on Top will force the statistics window to remain 
in view at all times; Sound will cause a series of notes to be sounded when the free 
space changes; Colour will bring up a dialog box, DLG_COLOURS, which can be 
used to change the colours of both windows; and finally, Title Bar will toggle 
the title bar on and off. 

When the program is terminated we make use of the WW_SAVEAPPLICATION 
message to save the current state of the statistics window, and to inform the gauge 
window that the application is closing and that it must save its state. 

Finally, when the background colour is changed by dragging a colour from the 
colour palette, we convert it to RGB values, store it in the profile and force a 
repaint by invalidating the window. We do not need to worry about the font chan- 
ging here, other than to invalidate the window, since it will automatically be saved 
when we issue a WinStoreWindowPos. The reason we need to query it for the 
gauge window is because the pop-up menu is not owned by the slider but by the 
gauge client, and when dropping a font onto this window it is the slider control 
itself that is affected, leaving the old font in the pop-up menu. 


#define INCL_GPIBITMAPS 
#define INCL_GPILOGCOLORTABLE 
#define INCL_WINFRAMEMGR 
#define INCL_WININPUT 

#define INCL_WINMENUS 

#define INCL_WINPOINTERS 
#define INCL_WINSHELLDATA 
#define INCL_WINSTDSLIDER 


Figure 14.8. Swap partition monitor: MAINWND.C. Continues. 
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#define INCL_WINSYS 
#define INCL_WINTIMER 
#define INCL_WINWINDOWMGR 


Finclude <os2.h> 


#include <string. 


h> 


finclude <stdio.h> 
#include <math.h> 


#include "swapmon.h" 


MRESULT EXPENTRY ColourDlgProc (HWND, ULONG, MPARAM, MPARAM) ; 
HWND GetGaugeFrame 


LONG strToLong 
PSZ RGBTostr 


CHAR szAppName 
szTitle[] 


[], 


J 


(VOID) ; 
(PSZ) ; 
(RGB) ; 


[REEKEREREREE EHRERREREEEERE EER KEREEREKER EA ESHREK ARR EWR RH EHS 


MRESULT EXPENTRY MainWndProc (HWND hwnd, ULONG msg, MPARAM mp1, 
MPARAM mp2) 


Static HWND 


static ULONG 


static CHAR 


static BOOL 


static LONG 





hMenu, 
hSlider, 
hFrame, 
hTitleBar, 
hSysMenu, 
hMin, 
hGaugeFrame, 
hDangerDlg; 
ulPartSize, 
ulSwapSize, 
ulUsedSpace, 
ulFreeSpace, 


/* Partition size 

/* Swapper size 

/* Space used by all files 
/* Free space 


ulPrevSwapSi ze = 0; 
*oszPathName, 
szPathName [CCHMAXPATH ] ; 


ESwapperOK = 
£Sound = 
Top 
fTitle 
fGauge; 
1BgndCol, 
1ForeCol; 


FALSE, 
FALSE, 
FALSE, 
TRUE, 


Figure 14.8. Swap partition monitor: MAINWND.C. Continues. 
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2 
at 
ae 


ULONG 
LONG 


double 
RGB 
USHORT 
CHAR 


POINTL 
RECTL 
HPS 


Switch 


{ 


Ca 
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ulUsedLength; 
1X, 

LY; 

temp; 

rgb; 

Li 

szText [CCHMAX PATH], 
szGauge[2], 
szSound[2], 
szTop(2], 
szCols(izl, 
szTitleBar[2]; 
DU; 

rel; 

hps; 


(msg) 


se WM_CREATE: 

hMenu = WinLoadMenu (hwnd, (HMODULE) NULL, ID_MENU) ; 

hFrame = WinQueryWindow (hwnd, QW_PARENT) ; 

hGaugeFrame = GetGaugeFrame () ; 

hSlider = WinWindowFromID (WinWindowFromID 
(hGaugeFrame, 


FID CLIENT), ID SLIDER) ; 
hTitleBar = WinWindowFrom1iID(hFrame, FID _TITLEBAR) ; 


hSysMenu = WinWindowFromID(hFrame, FID_SYSMENU) ; 
hMin = WinWindowFromID(hFrame, FID _MINMAX) ; 
PrfQueryProfileString(HINI_PROFILE, szAppName, 

'SctatsBond" , 

M2 IR DIS we” 4 

eeColLe, 12}: 
lBgndCol = StrToLong(szCols) ; 
PrfQueryProfileString(HINI_PROFILE, szAppName, 

"StetlerFrona"™, 

"OOO", s20ele, 124) > 
LForeCol = StrToLong (szCols) - 
PrfQueryProfileString(HINI_PROFILE, szAppName, 

*Slece Oo’ y * be" 4 


SzTop, 2): 
PrfQueryProfileString(HINI_PROFILE, szAppName, 
1Heounc * P Wy" ; 


szSound, 2)? 


Figure 14.8. Swap partition monitor: MAINWND.C. Continues. 
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PrfQueryProfileString(HINI_PROFILE, szAppName, 
"Gauge", "N", 
szGauge, 2); 
PrfQueryProfileString(HINI_PROFILE, szAppName, 
‘CCELeTICleBbar™, "YY", 
szTitleBar, 2); 


if (szGauge[0) == "Y") 
fGauge = FALSE; 
else /* Will be set correctly in MI_SLIDER */ 


fGauge = TRUE; 


/* Now Simulate menu select om | 


WinPostMsg (hwnd, WM_COMMAND, MPFROMSHORT 
(MI_ SLIDER), 0); 


La (ezTop( 0] 2="Y") 
WinPostMsg (hwnd, WM_COMMAND, MPFROMSHORT 
(MI TOP), OF ; 
if (ezsound [0] == *Y"} 


WinPostMsg (hwnd, WM_COMMAND, MPFROMSHORT 
(MT. SOUND) , OQ); 
if (szTitileBar([0] == ’N’) 
WinPostMsg (hwnd, WM_COMMAND, MPFROMSHORT 
(MI_TITLEBAR) , 0); 
else 
WinCheckMenultem(hMenu, MI_TITLEBAR, fTitle) ; 
break; 


case UM_NOSWAPPER: 

DosBeep(1000, 100); 

WinMessageBox (HWND_DESKTOP, hwnd, 
"Unable to find SWAPPER.DAT", 
szTitle, 
0, MB _ICONHAND | MB_OK | MB MOVEABLE ) ; 

WinPostMsg (hwnd, WM_QUIT, O, 0); 

break; 


case UM_SWAPPER_FOUND: 
£SwapperOK = TRUE; 
pszPathName = (PSZ) (mp1) ; 
for (I = 0; I <= CCHMAXPATH: I++) 
{ 
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szPathName[I] = *pszPathName++; 
if (szPathName[I] == ’\0’) 
break; 


} 
ulPartSize = LONGFROMMP (mp2) ; 
break; 


case UM_STATS_CHANGED: 
ulSwapSize = LONGFROMMP (mp1) ; 
ulFreeSpace = LONGFROMMP (mp2) ; 
ulUsedSpace = ulPartSize - ulFreeSpace; 
WiniInvalidateRect (hwnd, NULL, FALSE) ; 


ulUsedLength = (double) (ulUsedSpace 
* SCALE SPACING * 10.00) /ulPartSize; 
WinSendMsg(hSlider, SLM_SETSLIDERINFO, 
MPFROM2 SHORT (SMA_SLIDERARMPOSITION, 
SMA _RANGEVALUE) , 
(MPARAM) ulUsedLength) ; 


if (fSound && ulPrevSwapSize != 0) 
if (ulSwapSize > ulPrevSwapSize) 


DosBeep (1000, 50) 
DosBeep (1100, 50) 
DosBeep (1200, 50); 
DosBeep (1300, 50) 
DosBeep (1400, 50) 


1f (ulSwapSize < ulPrevSwapSize) 
{ 

DosBeep (1400, 50) 
DosBeep (1300, 50) 
DosBeep (1200, 50); 
(L100, 50) 
(1000, 50) 


DosBeep 
DosBeep 


} 


ulPrevSwapSize = ulSwapSize; 
break; 


case WM_PAINT: 
hps = WinBeginPaint (hwnd, (HPS)NULL, &rcl); 


Figure 14.8. Swap partition monitor: MAINWND.C. Continues. 
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GpiCreateLogColorTable(hps, LCOL RESET, LCOLF_RGB, 
0, 0, NULL): 

GpiSetColor(hps, lForeCol); 

WinFillRect(hps, &rcl, 1BgndCol); 


Sorintil(szText, "38 3s", "Swap fle location:", 
szPathName) ; 
Dt. = Ss 
Poy = LI? 
GpiCharStringAt (hps, &pt, strlen(szText)-12, 
SzText); 
sprintft(szText, "$s tu", "Partition size:", 


ulPartSize) ; 


DE.m = + 

pew =] 253 

GpiCharStringAt (hps, &pt, strlen(szText), szText); 

sprintf(szText, "3s u", "Total space used:", 
ulUsedSpace) ; 

(1 wee b 

pt.y = 60; 


GpiCharStringAt (hps, &pt, strlen(szText), szText); 


Sprinter (szText, "8 fu", "Swap seizes", 
ulSwapSize) ; 

De. = 5; 

Obey = 353 

GpiCharStringAt (hps, &pt, strlen(szText), szText); 


sprintf(szText, "%s %u", "Free space:", 
ulFreeSpace); 

Cr. = 5; 

DLay = 10> 


GpiCharStringAt (hps, &pt, strlen(szText), szText); 
WinEndPaint (hps) ; 
break; 
case UM_NEWBGND: 
1BgndCol = LONGFROMMP (mp1) ; 


WininvalidateRect (hwnd, NULL, FALSE); 
break; 
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case UM_NEWFGND: 
lForeCol = LONGFROMMP (mp1) ; 
WinInvalidateRect (hwnd, NULL, FALSE) ; 
break; 


case UM_DANGER: 
if (mp1) 
{ 
Por (l=07 E<aSs 1+4) /* Sound alarm */ 
{ 
DosBeep (1000, 50); 
DosBeep (1500, 50); 
} 
hDangerDlg = WinLoadDlg (HWND_DESKTOP, 
HWND_DESKTOP, 
(PFNWP) NULL, 
(HMODULE) NULL, 
DLG_DANGER, 0); 
WinQueryWindowRect (hDangerDlg, &rcl); 
1X = (WinQuerySysValue (HWND_DESKTOP, 
SV_CXSCREEN) - rcl.xRight) / 2; 
1Y = (WinQuerySysValue (HWND_DESKTOP, 
SV_CYSCREEN) -rcl.yTop) /2; 
WinSetWindowPos (hDangerDlg, HWND_TOP, 1X, lY, 
0, 0, SWP_MOVE | SWP_SHOW) ; 
} 
else 
WinDestroyWindow (hDangerD1g) ; 
break; 


case WM_BUTTON2DOWN: 
WinQueryPointerPos (HWND_DESKTOP, &pt) ; 
WinMapWindowPoints (HWND_DESKTOP, hwnd, &pt, 1); 
WinPopupMenu (hwnd, hwnd, hMenu, pt.x, pt.y, 0, 
PU_HCONSTRAIN | PU_VCONSTRAIN | 
PU_KEYBOARD | PU_MOUSEBUTTON1) ; 
return (MRESULT) TRUE; 


case WM_SAVEAPPLICATION: 
if (fSwapperOK) 
{ 
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WinSendMsg (WinWindowFromID (hGaugeFrame, 
FID CLIENT), UM_SAVEAPP, 0, 0); 
WinStoreWindowPos(szAppName, "StatsSizePos", 
WinQueryWindow (hwnd, 
QW_PARENT) ) ; 
if (WinIsMenuItemChecked(hMenu, MI_SLIDER) ) 
PrfWriteProfileString (HINI_PROFILE, szAppName, 


"Gauge", "¥"}; 
else 
PrfWriteProfileString(HINI_PROFILE, szAppName, 
"Gauge", "N"); 


if (WinIsMenuItemChecked(hMenu, MI_TOP) ) 
PrfWriteProfileString(HINI_PROFILE, szAppName, 
‘Starsrao", "i" hs 
else 
PrfWriteProfileString(HINI_PROFILE, szAppName, 
"StareTop",. "NW" } 3 


if (WinIsMenulItemChecked(hMenu, MI SOUND) ) 
PrfWriteProfileString(HINI_PROFILE, szAppName, 


"Ssoune”, *F") 3 
else 
PrfWriteProfileString (HINI_PROFILE, szAppName, 
"Sound", "I" } s 


if (WinIsMenuItemChecked(hMenu, MI_TITLEBAR) ) 
PrfWriteProfileString(HINI_PROFILE, szAppName, 
‘Stacelitlebar", “¥")}; 
else 
PrfWriteProfileString(HINI_PROFILE, szAppName, 
"StatsTitleBbar", "N") 3 
} 


break; 


case WM_TIMER: 
WinSetWindowPos (WinQueryWindow (hwnd, QW_PARENT) , 
HWND_TOP, 0, 0, 0, 0, SWP_ZORDER) ; 
break; 


case WM_COMMAND: 
Switch (SHORTIFROMMP (mp1) ) 


{ 
case MI_ SLIDER: 
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fGauge = ! fGauge; 
WinCheckMenulItem(hMenu, MI_SLIDER, fGauge) ; 
if (fGauge) 
WinSendMsg (WinWindowFromID(hGaugeFrame, 
FID CLIENT) , UM_SHOW, O, 0); 
else 
WinSendMsg (WinWindowFromID (hGaugeFrame, 
PID CLIENT), UM BIDE, 0, O} 3 


break; 


case ML TOP: 
iTop = i rTop: 
WinCheckMenultem(hMenu, MI_TOP, f£Top); 
LE (Lom) 
WinStart Timer (WinQueryAnchorBlock (hwnd), 
hwnd, 1, 1000); 


else 
WinStopTimer (WinQueryAnchorBlock (hwnd), 
hwnd, 1); 
break; 


case MI SOUND: 
fSound = !£Sound: 
WinCheckMenulItem(hMenu, MI SOUND, £Sound) ; 


break; 


case MI_TITLEBAR: 
fTitle = !fTitle; 
WinCheckMenultem(hMenu, MI_TITLEBAR, fTitle); 


if (!fTitle) 
WinSetParent (hTitleBar, HWND_OBJECT, FALSE) ; 
WinSet Parent (hSysMenu, HWND_OBJECT, FALSE) ; 


WinSetParent (hMin, HWND_OBJECT, FALSE); 
} 
else 


{ 
WinSetParent (hTitleBar, hFrame, FALSE); 


WinSetParent (hSysMenu, hFrame, FALSE) ; 
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WinSetParent (hMin, hFrame, FALSE) ; 

} 

WinSendMsg (hFrame, WM_UPDATEFRAME, 
MPFROMLONG (FCF_TITLEBAR | 
FCF_SYSMENU | FCF_MINMAX), 0); 

break; 


case MI COLOUR: 
WinD1gBox(HWND_DESKTOP, hwnd, ColourDlgProc, 
(HMODULE) NULL, DLG_COLOURS, 0); 
break; 


case MI_ EXIT: 
WinPostMsg (hwnd, WM_QUIT, 0, 0); 
break; 


default: 
break; 
} 


break; 


case WM_PRESPARAMCHANGED: 
1£ ((ULONG) mpl == PP_BACKGROUNDCOLOR) 
{ 
WinQueryPresParam(hwnd, PP_BACKGROUNDCOLOR, 0, 
NULL, sizeof (lBgndCol), 
&lBgndCol, 0); 
rob.bRed = LBgndCol/65536; 
temp = fmod({ (double) lBgndCol, 65536.00); 
rgb.bGreen = temp/256; 
rgb. bBlue = fmod((double)temp, 256.00); 
stropy (szCols, RGBToStr (rgb) ) ; 
PrfWriteProfileString(HINI_PROFILE, szAppName, 
"StatsBond", szCols)}; 
} 
WininvalidateRect (hwnd, NULL, FALSE) ; 
break; 


case WM_ERASEBACKGROUND: 
return (MRESULT) TRUE; 
} 


return WinDefWindowProc (hwnd, msg, mpl, mp2); 





Figure 14.8. Swap partition monitor: MAINWND.C. Concluded. 
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14.2.7, DLGWND.C 


This is the dialog box procedure, ColourDlgProc, used to change the fore- 
ground and background colours of the statistics and gauge windows, and the 
colour of the indicator strip (Fig. 14.9). During initialization we obtain the 
handles of the gauge frame window and the slider control. We then set up the 
dialog box by filling the listbox and initializing the colour sliders, one each for 
the red, green and blue components. We read the profile to get the current 
colours, or if this is the first time the program has run, default them as follows: 
white for the window background colours and black for the remainder. Finally, 
we centralize the dialog box and show it. 

Whenever a slider is changed or an entry in the listbox is selected, a 
WM_CONTROL message is sent with the low SHORT of mp1 set to the control 
identity. Let us first consider what happens when you select an item in the list- 
box. The high SHORT of mp1 will contain LN _SELECT, so when we receive 
this, we obtain the index of the selected item and set the sliders to the appropriate 
values. The array of structures, argb, contains these values since they were 
obtained during the initialization process: argb[0] refers to the statistics 
background; argb[1] to the statistics foreground; argb[2] to the gauge back- 
ground; argb[3] to the gauge foreground; and argb[4] to the indicator strip. 

For each slider we trap the SLN_CHANGE and SLN_SLIDERTRACK messages, 
update the value displayed to the right of the slider and, according to which list- 
box item is selected, call ChangeColour to effect the actual colour change. 
Note that if we are changing the statistics window (index values 0 or 1) we pass 
a NULL handle to ChangeColour. This ensures ChangeColour posts the 
relevant colour change message to the current thread’s message queue, so our 
main window procedure will pick it up and process it. 

Finally, when the dialog box is dismissed, all the colour settings are updated in 
the profile. 


#define INCL GPIBITMAPS 
#define INCL _WINDIALOGS 
#define INCL WINFRAMEMGR 
#define INCL _WINLISTBOXES 
#define INCL _WINSHELLDATA 
#define INCL _WINSTDSLIDER 
#define INCL WINSYS 
#define INCL WINWINDOWMGR 


Finclude <os2 .h= 
#include <string.h> 
#include <stdlib.h> 





Figure 14.9. Swap partition monitor: DLGWND.C. Continues. 
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#include "swapmon.h" 


HWND GetGaugeFrame (VOID) ; 

VOID ChangeColour (SHORT, HWND, RGB); 
RGB StrToRGB (PEA) ; 

PSZ RGBToStr (RGB) ; 


CHAR szAppName[]; 


[ERRREKKEKEKKEKRKEREERERERKEKERKERREKRKEEKRERKEKKEEEKRKEEKREEKEKKEEKKE KE KKEKKKKEKKEEKE / 


MRESULT EXPENTRY ColourDlgProc (HWND hwndDlg, ULONG msg, 
MPARAM mpl, MPARAM mp2) 


static PSZ eziBoxText |] =1 "StatLetics Backoroiund" ,; 
"Statistics Foreground", 
"Gauge Background", 
"Gauge Foreground", 
Indicator Strip}; 

static struct _RGBargb[5]; 

static HWND hSlider, 

hGaugeFrame; 
Static SHORT sicdx; 


LONG lRed, 
lGreen, 
1Blue, 
LX, 
ly; 
CHAR szColValue[4], 
szCols[i2];3 
USHORT TL; 
RECTL pel. 


Switch (msg) 
{ 
case WM_INITDLG: 
hGaugeFrame = GetGaugeFrame () ; 
hSlider = WinWindowFromID (WinWindowFromID 
(hGaugeFrame, FID _CLIENT), 
LD_SLIDER) 3 
l1Red = Clk RED} 
1Green = CLR_GREEN; 
IBlue = CLR_BLUE; 
WinSet PresParam(WinWindowFrom1ID(hwndDlg, ID_RED), 
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PP_BACKGROUNDCOLORINDEX, 
sizeof (lRed), &lRed); 

WinSet PresParam(WinWindowFromID(hwndDlg, ID_GREEN) , 
PP_BACKGROUNDCOLORINDEX, 
sizeof (1lGreen), &lGreen) ; 

WinSet PresParam(WinWindowFromID(hwndDlg, ID_BLUE), 
PP_BACKGROUNDCOLORINDEX, 
sizeof (1lBlue), &l1Blue) ; 

for {(l@=OQ; l<=47 I++4) 

{ 

WinSendDlgItemMsg(hwndDlg, ID_LISTBOX, 
LM _ INSERTITEM, 
MRFROMSHORT (LIT_END) , 
MRFROMP (sSzLBoxText [I])); 

} 

ror (L= 16; I <= 42456 ; I4+=16 ) 

{ 

WinSendDlgItemMsg(hwndDlg, ID_RED, 
SLM SETTICKSIZE, 
MPFROM2SHORT (I, 6), 0); 
WinSendDlgItemMsg(hwndDlg, ID_GREEN, 
SLM SETPTICRSIZE, 
MPFROM2SHORT (I, 6), 0); 
WinSendDlgItemMsg(hwndDlg, ID BLUE, 
SLM SETTICKSIZE, 
MPFROM2SHORT (I, 6), 0); 

} 

PrfQueryProfileString (HINI_PROFILE, szAppName, 
'Scacrseonn”, “255 255.255", 
szCole, 12)+% 

argb[0] = StrToORGB(szCols); 

PrfQueryProfileString(HINI_PROFILE, szAppName, 
recaterand”, "00 0°, 
ezCols, 12)% 

argb[(1] = StrToRGB(szCols); 

PrfQueryProfileString(HINI_PROFILE, szAppName, 
"GaugeBona", "255 255 255", 
szCols, La); 

argbol2z] = StrToRGB(szCols) ;: 

PrfQueryProfileString(HINI_PROFILE, szAppName, 
"GaugeFgnd", "000", 
s2Cols, 12); 
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argb[3] =StrToRGBi(szCols) ; 

PrfQueryProfileString(HINI_PROFILE, szAppName, 
"GaugeBar", "000", 
azCols, 12); 

argb[4] =StrToRGB (szCols); 


WinSendDlgItemMsg(hwndDlg, ID_LISTBOX, 
LM SELECTITEM, MRFROMSHORT (0), 
(MPARAM) TRUE) ; 
WinQueryWindowRect (hwndDlg, &rcl); 
1X = (WinQuerySysValue (HWND_DESKTOP, SV_CXSCREEN) - 
rol .xRight) ~ 23 
1Y = (WinQuerySysValue (HWND_DESKTOP, SV_CYSCREEN) - 
rel.vTou) p23 
WinSetWindowPos (hwndDlg, 0, 1X, 1lY, 0, 0, SWP_MOVE | 
SWP_SHOW) ; 
break; 


case WM_CONTROL: 
Switch (SHORT1FROMMP (mp1) ) 
{ 
case ID LISTBOX: 
Switch (SHORT2 FROMMP (mp1) ) 
{ 
case LN_SELECT: 
sIdx = (SHORT) WinSendDlgItemMsg(hwndDlg, 
ID_LISTBOX, LM QUERYSELECTION, 
O, O}s 

WinSendDlgItemMsg(hwndDlg, ID_RED, 
SLM SETSLIDERINFO, 
MPFROM2 SHORT 
(SMA _SLIDERARMPOSITION, 
SMA _RANGEVALUE) , 
(MPARAM) argb[sIdx] .bRed) ; 

WinSendDligItemMsg (hwndDlg, ID_GREEN, 
SLM_SETSLIDERINFO, 
MPFROM2 SHORT 
(SMA SLIDERARMPOSITION, 
SMA _RANGEVALUE) , 
(MPARAM) argb[sIdx] .bGreen) ; 
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WinSendDlgItemMsg (hwndDlg, ID _BLUE, 
SLM SETSLIDERINFO, 
MPFROM2 SHORT 
(SMA _SLIDERARMPOSITION, 
SMA _RANGEVALUE) , 


(MPARAM) argb [sIdx].bBlue); 
break; 


case ID_RED: 
Switch (SHORT2 FROMMP (mp1) ) 
{ 
case SLN_CHANGE: 
case SLN_SLIDERTRACK: 
l1Red = LONGFROMMP (mp2) ; 
_ltoa(lRed, szColValue, 10); 
WinSetDlgItemText (hwndDlg, ID_RVALUE, 
szColValue) ; 
argb[sIdx] .bRed = (BYTE) 1Red; 
/* Changing statistics colours */ 
ie tela == f)) Bite =a 1) 
ChangeColour(sIdx, 0, argb[sIdx]); 


/* Changing gauge foreground */ 
if (sidx == 3) 


ChangeColour(sIdx, hSlider, argb[sIdx]); 


/* Changing gauge background/bar */ 
it (eidx <= 2 || sids == 4) 


ChangeColour(sIdx, hGaugeFrame, argb[sIdx]); 
break; 


default: 
break; 
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} 


break; 


case ID_GREEN: 
Switch (SHORT2 FROMMP (mp1) ) 
{ 
case SLN_CHANGE: 
case SLN_SLIDERTRACK: 
l1Green = LONGFROMMP (mp2) ; 
_ltoa(lGreen, szColValue, 10); 
WinSetDlgItemText (hwndDlg, ID _GVALUE, 
szColValue) ; 
argb[sIdx].bGreen = (BYTE) 1Green; 


it (sldx == 0 ||] sidx== 1} 
ChangeColour(sIdx, 0, argb[sIdx] ) ; 


if (sidx == 3) 
ChangeColour(sidx, hSlider, args(sidx]); 


if (sldx == 2 || sldx == 4) 


ChangeColour(sIdx, hGaugeFrame, argb[sIdx]); 
break; 


default: 
break; 
} 


break; 


case ID_BLUE: 
Switch (SHORT2 FROMMP (mp1) ) 
{ 
case SLN_CHANGE: 
case SLN_SLIDERTRACK: 
1Blue = LONGFROMMP (mp2) ; 
_ltoa(lBlue, szColValue, 10); 
WinSetDlgItemText (hwndDlg, ID_BVALUE, 
szColValue) ; 
argb[sIdx] .bBlue = (BYTE) 1Blue; 


ii {6ldx == 0 || sidx == 1) 
ChangeColour(sIdx, 0, argb[sIdx] ) ; 


Figure 14.9. Swap partition monitor: DLGWND.C. Continues. 
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if (eid= == 3) 
ChangeColour(siIdx, hSlider, argb[siIdx]); 


Lt (elde es 2 || sldx =e 4) 
ChangeColour(sIdx, hGaugeFrame, argb[sIdx]) ; 
break; 


default: 
break; 


} 


break; 


} 


break; 


case WM_COMMAND: 
Switch (SHORTIFROMMP (mp1) ) 
{ 
case 1D EXIT: 

strepy (szCols, RGBToStr(argb[0]})}; 

PrfWriteProfileString(HINI_PROFILE, szAppName, 
"StatcsBond", szCols) ; 

strcpy (szCols, RGBToStr(argb[1])); 

PrfWriteProfileString (HINI_PROFILE, szAppName, 
"Staterqnd", szCols): 

strcpy (szCols, RGBToStr(argb[2])); 

PrfWriteProfileString(HINI_PROFILE, szAppName, 
"GaugeBgnd", szCols) ; 

strcepy (szCols, RGBToStri(argb[3])); 

PrfWriteProfileString(HINI_PROFILE, szAppName, 
"GaugeFgnd", szCols) ; 

strepy (szCols, RGBToStr(arob[4])); 

PrfWriteProfileString(HINI_PROFILE, szAppName, 
"GaugeBar", szCols); 

break; 


default: 
return FALSE; 
} 
WinDismissDlg(hwndDlg, TRUE) ; 
break; 





Figure 14.9. Swap partition monitor: DLGWND.C. Continues. 
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default: 
return WinDefDlgProc (hwndDlg, msg, mpl, mp2) ; 


} 
return (MRESULT) FALSE; 


Figure 14.9. Swap partition monitor: DLGWND.C. Concluded. 


14.2.8 CHNGCOL.C 


This is the ChangeColour procedure (Fig. 14.10) and it just converts the RGB 
values into a LONG and, depending on which component is being changed, either 
posts a user message or changes the presentation parameters. 


#define INCL GPIBITMAPS 
#define INCL WINSYS 


#include <os2.h> 
#include "“swapmon.h" 


PRERREERRRERE LREREREER EKER ERREREKE RK EEK EKKERERERERKEREEREREK EE KB 


VOID ChangeColour (SHORT sLBoxIndex, HWND hwnd, RGB rgb) 
{ 
LONG 1Colour; 


1Colour = rgb.bRed * 65536 + rgb. bGreen * 256 + rgb. bBlue; 


if (sLBoxIndex == 0) /* Statistics background */ 
WinPostMsg (hwnd, UM_NEWBGND, MPFROMLONG(1Colour), 0); 


if (sLBoxIndex == 1) /* Statistics foreground */ 
WinPostMsg (hwnd, UM_NEWFGND, MPFROMLONG(1Colour), 0); 


1£ (eLBox Index == 2) /* Gauge background a i 
WinPostMsg (hwnd, UM_NEWGBGND, MPFROMLONG(1Colour), 0); 


if (sLBoxIndex == 3) /* Gauge foreground a 
WinSetPresParam(hwnd, PP_FOREGROUNDCOLOR, sizeof(rgb), &rgb); 


if (sLBoxiIndex == 4} /* Gauge bar * } 
WinPostMsg (hwnd, UM_NEWBAR, MPFROMLONG(1Colour), 0); 


Trecurn 





Figure 14.10. Swap partition monitor: CHNGCOL.C. 
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14.2.9 STRTORGB.C 


This procedure converts a string of colour values into an RGB structure 
(Fig. 14.11). 


#define INCL GPIBITMAPS 


#inelude <os2.,h> 
#include <string.h> 
#include <stdlib.h> 


[RRKKKKKKKKKKKKEKEKKKKKKKKKKKKKKKKKKKKKKK KKEKKKKKKKKEKKK KEKE / 


RGB StrToORGB(PSZ szColours) 
{ 


RGB rob; 
CHAR *szRed, 
*szGreen, 
*szBlue: 
szRed =astrtokiszColours, * *). 


szGreen = strtok(NULL, ""); 
szBlue =strtok (NULL, “ "*"): 


rgb.bRed = (BYTE)atoi(szRed) ; 
rgb.bGreen = (BYTE) atoi(szGreen) ; 
rgb.bBlue = (BYTE)atoi(szBlue) ; 


return rgb; 


Figure 14.11. Swap partition monitor: STRTORGB.C. 


14.2.10 RGBTOSTR.C 


This procedure converts an RGB structure into a string of colour values 
(Fig. 14.12). 


#define INCL _GPIBITMAPS 
#include <os2.h> 
#include <stdio.h> 
#include <stdlib.h> 


jf Te EAE Be Re EE A Die OP ER ER BR I A AE ORE A Oe IE Es Nf 


PSZ RGBToStr(RGB rgb) 


Figure 14.12. Swap partition monitor: RGBTOSTR.C. Continues. 
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CHAR ezString[i3], 
szRed[4], 
szGreen[4], 
szBlue[4]; 


_itoa((USHORT)rgb.bRed, szRed, 10); 
_itoa((USHORT)rgb.bGreen, szGreen, 10); 
_itoa((USHORT)rgb.bBlue, szBlue, 10); 


sprintf(szString, "%s $s %s", szRed, szGreen, szBlue); 


return szString; 


Figure 14.12. Swap partition monitor: RGBTOSTR.C. Concluded. 


14.2.11 STRTOLNG.C 


This procedure converts a string of colour values into a LONG (Fig. 14.13). 


#define INCL_GPIBITMAPS 


#include <os2.h> 
#include <string.h> 
#include <stdlib.h> 


[ERRREKRKREKRERKRERER KR KKKEKREKREKEEKEKEREKERE RREREREKREREREKRERKEEKEEERER / 


LONG StrToLong(PSZ szColours) 
{ 
RGB rgb; 
LONG LEGLOUT } 
CHAR *szRed, 
*szGreen, 
*szBlue; 


szRed = SErtoktszColomrs, “ ")- 
szGreen = strtok(NULL, ""); 
svBlue =striok (NULL, " ")>= 


rgb.bRed = (BYTE)atoi(szRed); 
rgb.bGreen = (BYTE) atoi(szGreen) ; 
rgb.bBlue = (BYTE)atoi(szBlue) ; 


1Colour = rgb. bRed * 65536 + rgb. bGreen * 256 + rgb. bBlue; 
return 1Colour; 


Figure 14.13. Swap partition monitor: STRTOLNG.C. 
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14.2.12 GAUGEFRM.C 


This is the GetGaugeFrame procedure and is used to enumerate the desktop 
frame windows in order to find the handle of the gauge frame window (Fig. 14.14). 


#defne INCL_WINFRAMEMGR 
#define INCL_WINWINDOWMGR 


#include <os2.h> 
#include <string.h> 
#include "swapmon.h" 


[ FREREEEEEERE EEREEEERAEEKEKEEES RKEEEEKEE KRERKEEKRERREER RE ERRE REE RE / 


HWND GetGaugeFrame (VOID) 
/* Retrieve gauge frame window handle */ 


HWND hWin, 
hGaugeFrame; 
HENUM hEnum; 
CHAR szClassBuffer [20]; 


hEnum = WinBeginEnumWindows (HWND_DESKTOP) ; 
while (hWin = WinGetNextWindow(hEnum) ) 
{ 
WinQueryClassName(hWin, sizeof (szClassBuffer), 
szClassBuffer) ; 
Lt (listremo(ezClassButfer, "¢1°)) 


WinQueryClassName (WinWindowFromID(hWin, FID CLIENT), 
sizeof(szClassBuffer), 
szClassBurfer) ; 


if (!stremp(szClassBuffer, "SwapGauge") ) 
hGaugeFrame = hWin; 


} 
WinEndEnumWindows (hEnum) ; 
return hGaugeFrame; 


Figure 14.14. Swap partition monitor: GAUGEFRM..C. 
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The following listings for the SWAPMON program complete the total source 
for the program. They are the header file, Fig. 14.15, the resource file, Fig. 14.16, 
and the dialog template, Fig. 14.17. Because this program differs from the skeleton 
program in that it contains many object files, the link control file, Fig. 14.18, the 
module definition file, Fig. 14.19, and the make file, Fig. 14.20, are also included. 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


UM_NOSWAPPER 
UM_SWAPPER_FOUND 
UM_STATS_CHANGED 
UM_NEWBGND 
UM_NEWFGND 
UM_NEWGBGND 
UM_NEWBAR 
UM_PASSHWND 
UM_DANGER 
UM_SHOW 

UM_HIDE 
UM_SAVEAPP 


SCALE SPACING 
DEFAULT_WIN_X 
DEFAULT_WIN_Y 
DEFAULT_VERT_X 
DEP AW VERT 
DEFAULT_HORIZ_xX 
DEFAULT_HORIZ_Y 
DANGER_LEVEL 


ID_MATNWND 
LDL LE 
ID_STITLE 
ID_MENU 
ID_SLDRMENU 
ID_SLIDER 
ID_SLIDERWND 


MI EXIT 
MI_SLIDER 
MI_ SOUND 


MT TOP 


MI_COLOUR 
MI_HORIZ 
MI_VERT 
MI_TITLEBAR 


WM_USER 
WM_USER+1 
WM_USER+2 
WM_USER+3 
WM_USER+4 
WM_USER+5 
WM_USER+6 
WM_USER+/7/ 
WM_USER+8 
WM_USER+9 
WM_USER+10 
WM_USER+11 


AQ 
300 
180 
120 
450 
450 
120 
1024 * 1024 * 3 


200 
AY 1 
AN ie 
203 
204 
ANS 
206 


300 
301 
302 
303 
304 
305 
306 
SU7 


Figure 14.15. Swap partition monitor: header file. Continues. 
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#define DLG_ COLOURS 400 
#define ID _EXIT 402 
#define ID_LISTBOX 403 
#define ID_RED 404 
#define ID_GREEN 405 
#define ID_BLUE 406 
#define ID _RVALUE 407 
#define ID_GVALUE 408 
#define ID BVALUE 409 
#define DLG DANGER 410 


Figure 14.15. Swap partition monitor: header file. Concluded. 


#include <os2.h> 
#include "swapmon.h" 


STRINGTABLE PRELOAD 

BEGIN 
ID TITLE, "Swap Partition Monitor" 
ID_STITLE, "Percentage Use" 


END 

ICON ID_MAINWND swapmon.ico 

ACCELTABLE ID _MATNWND 

BEGIN 
VR_F3, MI EXIT, VIRTUALKEY 

END 

MENU ID_MENU PRELOAD 

BEGIN 
MENUITEM "~Gauge", MI SLIDER, 
MENUITEM "~Keep on Top", MI TOP, 
MENUITEM "~Sound", MI_SOUND, 
MENUITEM "*«Colour...", MI_COLOUR, 


MENUITEM "~Title Bar", MI TITLEBAR, 


END 

MENU ID_SLDRMENU PRELOAD 

BEGIN 
MENUITEM "“Vertical", MI VERT, 
MENUITEM "~Horizontal", MI_HORIZ, 
MENUITEM "~Keep on Top", MT TOP, 


MENUITEM "«~Title Bar", 
END 


Mi TITLERAR, 


rcinclude swapmon.dlg 


Figure 14.16. Swap partition monitor: resource file. 


MIS_TEXT 
MIS TEXT 
MIS_TEAT 
MiSs TEXT 
MIS_TEXT 


MIS_TEXT 
MIS_TEXT 
MIS_TEAT 
MIS_ TEXT 
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DLGINCLUDE 1 "SWAPMON.H" 


DLGTEMPLATE DLG DANGER LOADONCALL MOVEABLE DISCARDABLE 
BEGIN 
DIALOG "Swap Partition Monitor", DLG_ DANGER, 23, 19, 148, 
57, FS_SCREENALIGN, FCF_TITLEBAR | FCF_NOBYTEALIGN 
PRESPARAMS PP_BACKGROUNDCOLOR, Ox00000000L 
BEGIN 
CLEaT "DANGER", 4211, 17, 43, 118, 8, DT_VCENTER 


PRESPARAMS PP_FOREGROUNDCOLOR, Ox00OFFOOOOL 
OTe? "The free space on your swap", 
413, 4, 25, 140, 8, D?P_VCENTER 


PRESPARAMS PP_FOREGROUNDCOLOR, Ox0OFFOOOOL 


CTHAT "oartition has fallen below 3 MB.", 
412, 4, 7, 140, 8, DT_VCENTER 


PRESPARAMS PP_FOREGROUNDCOLOR, Ox0O0FFOOOOL 
END 
END 


DLGTEMPLATE DLG COLOURS LOADONCALL MOVEABLE DISCARDABLE 
BEGIN 
DIALOG "Customize Colours", DLG_COLOURS, 94, 62, 286, 145, 
FS _SCREENALIGN, FCF_TITLEBAR | FCF_NOBYTEALIGN 


BEGIN 
LISTBOX ID_LISTBOX, 63, 96, 170, 46, WS_GROUP 
CONTROL me) LD RED, 47, fly 202, LS, WC_SLIDER,, 


SLS_HORIZONTAL | SLS_CENTER | 
SLS_SNAPTOINCREMENT | SLS_BUTTONSLEFT | 
SLS_RIBBONSTRIP | SLS_HOMELEFT | 
SLS_PRIMARYSCALE1 | WS_TABSTOP | 
WS_VISIBLE 
CTLDATA 12, 0, 256, 0, Q, 0 

CONTROL we, ID GREEN, 47, 47, 202, 19, WC_SLLDER, 
SLS_HORIZONTAL | SLS_CENTER | 
SLS_SNAPTOINCREMENT | SLS_BUTTONSLEFT | 
SLS_RIBBONSTRIP | SLS_HOMELEFT | 
SLS_PRIMARYSCALE1 | WS_TABSTOP | 
WS_VISIBLE 
CTUDATA 12, 0; 4256, 0» O» 0 


Figure 14.17. Swap partition monitor dialog template: Continues. 
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CONTROL ee, ID_BLUE, 47, 23, 202, 19, WO_SULIDER, 
SLS_HORIZONTAL | SLS_CENTER | 
SLS_SNAPTOINCREMENT | SLS_BUTTONSLEFT | 
SLS_RIBBONSTRIP | SLS_HOMELEFT | 
SLS_PRIMARYSCALE1 | WS_TABSTOP | 
WS_VISIBLE 
CTLDATA TZ, 0, 255, 0, Q, 0 


PUSHBUTTON "Eeit", ID BAIT, &, 4, 57> 14 

Lex T "0", ID _RVALUE, 254, 76, 28, 8, 
DT_VCENTER | NOT WS_GROUP 

TRL “Q", ID_GVALUE, 254, 52, 28, 6, 
DT_VCENTER | NOT WS_GROUP 

CTEXT "OQ", LD BYALUE, 254, 28, 28, 8, 
DT_VCENTER | NOT WS_GROUP 

LTEAT "Red", 411, 4, 76, 20, 8, NOT WS_GROUP 

LTEXT "Green", 412, 4, 52, 32, 8, NOT WS_GROUP 

LTEXAT "Blue", 413, 4, 28, 20, 8, NOT WS_GROUP 

END 


END 


Figure 14.17. Swap partition: monitor dialog template. Concluded. 


Swapmon mainwnd getstats subclass gaugewnd slider gaugefrm + 
dlgwnd strtolng strtorgb rgbtostr chngcol /A:16 /E /CO 
Swapmon.exe 

Swapmon.map 

062386. lib 

Swapmon.def 


Figure 14.18. Swap partition monitor: link control file. 


NAME Swapmon WINDOWAPI 

DESCRIPTION ‘Swap Partition Monitor - Written by Bryan Goodyer'’ 
STUB ‘OS2STUB.EXE’ 

DATA MULTIPLE 

STACKSIZE B19? 


PROTMODE 





Figure 14.19. Swap partition monitor: module definition file. 
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all: Sswapmon.exe 
(OC a2 ice fc fon /kb /ns0 /Ta 


OBJS = swapmon.obj mainwnd.obj subclass.obj getstats.obj\ 
gaugewnd.obj slider.obj gaugefrm.obj dlgwnd.obj\ 
strtolng.obj strtorgho.ob j rgbtestr.ob)] chngcol.obj 


yeopeslege 
S (ICC) S*.e 


Swapmon.obj: Swapmon.c swapmon.h 
mainwnd.obj: mainwnd.c swapmon.h 
Subclass.obj: subclass.c swapmon.h 
getstats.obj: getstats.c swapmon.h 
gaugewnd.obj: gaugewnd.c swapmon.h 
slider.obj: slider.c swapmon.h 
gaugefrm.obj: gaugefrm.c swapmon.h 
dlgwnd.obj: dlgwnd.c swapmon.h 
strtcing.obj]i strtolng.c 
strterg6.6b7: strtorgs.« 
FOOLOSEr.oOb1: rebtostr.c 
chngcol.obj: chngcol.c Sswapmon.h 


Swapmon.res: Swapmon.h swapmon.rc Swapmon.ico Swapmon.dlg 
rc -r Swapmon.rc 


Swapmon.exe: $(OBJS) swapmon.def swapmon.res 
1ink386 @swapmon. 1 
rc Swapmon.res 


Figure 14.20. Swap partition monitor: make file. 


15 
A basic exception handler 


15.1 Trapping access violations 


With the introduction of OS/2 version 2.0 it has become possible to trap access 
violations by registering your own exception handler. This can be a very useful 
way of handling large amounts of memory in an application. Consider a text 
editor, or word processor. When the program starts it does not know how much 
memory it is going to need to satisfy the user’s requirements, so it may just allo- 
cate 64kb, and if that looks like being used up it may allocate another 64kb and 
so on. Now in version 2.0 whenever you allocate memory, that memory is not 
backed up with real memory until you commit it. This means that you can allo- 
cate, say, 1 Mb, and only commit one page, that is 4kb, and only be using 4kb 
of real memory but have the remainder reserved for you. 

Let us assume then, that you did this. Now, because you have committed the first 
page you can write into it, assuming you allocated it as read/write, and everything 
would be fine until you attempted to write into the next page when, under normal 
circumstances, your program would crash with an access violation. Of course, we 
would normally be keeping a count of bytes written and commit the next page 
when necessary, but this is rather cumbersome. What would be convenient here 
is some mechanism whereby we could automatically have the next page com- 
mitted to let us continue writing as if nothing had happened. This is where the 
exception handler comes in—it does just that. 

The program listed in Fig. 15.1 registers an exception handler XCPTHandler 
and allocates 64 kb of read/write memory. We then commit the first page and start 
filling the entire 64 kb with the letter ‘Z’. Running the program from the command 
line will not produce any errors and all 64kb will have been filled with ‘Z’. To see 
what actually happens you need to run this under the Presentation Manager 
debugger, IPMD.EXE, see Sec. 15.3. You will notice that every time we access 
the first byte in the next page the exception handler, listed in Fig. 15.2, takes 
control. If it is an access violation (which it will be under these circumstances), 
we obtain the address causing the fault, held in ExceptionInfo[1] in the 
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#define INCL_DOSEXCEPTIONS 
#define INCL _DOSMEMMGR 


#include <os2.h> 
#include <string.h> 


ULONG XCPTHandler (PEXCEPTIONREPORTRECORD) ; 


INT main (VOID) 

{ 
EXCEPTIONREGISTRATIONRECORD ExceptionStruct; 
PVOID BaseMem; 
CHAR *pData, 


*oChar; 
ULONG i? 
ExceptionStruct.ExceptionHandler = (_ERR *) &XCPTHandler; 


DosSetExceptionHandler (&ExceptionStruct) ; 


DosAllocMem(&BaseMem, 65536, PAG READ | PAG WRITE) ; 
DosSetMem(BaseMem, 4096, PAG DEFAULT | PAG COMMIT) ; 
pData = BaseMem; 

pohar= "2" 


for (1l=0* [<655367 I++) 
*oData++ = *pChar; 


DosUnsetExceptionHandler (&ExceptionStruct) ; 
DosFreeMem(BaseMem) ; 
return 0; 


Figure 15.1. Exception handler to trap access violations: EXCEPTN.C (main routine). 


exception report record, and use this as our base address for the next page to be 
committed. So, if this page has been allocated then we commit it and continue; 
if not, we pass the exception on to OS/2 for handling, which will cause our pro- 
gram to terminate. Similarly, any violation other than an access violation will 
cause our program to be terminated. Try changing the for loop limit from 
T<65536 to 1<=65536 to See the effect of trying to write into the next page after 
our 64kb. 

There is one point to note here for OS/2 version 2.0, and that is, whenever any 
memory is allocated, OS/2 returns a pointer aligned on a 64kb boundary. This is 
because in version 2.0 all memory is tiled by default, and as OS/2 V2.0 is a mixture 
of 16-bit and 32-bit code internally, a 32-bit API may still require to call 16-bit 
code, therefore all memory has to be addressable by both 16-bit and 32-bit code. 
This is also why there is a 512 Mb virtual address space limit; a local descriptor 
table (LDT) can only hold 8192 descriptors, and as each descriptor can address 
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ULONG XCPTHandler (PEXCEPTIONREPORTRECORD pXcpt) 


{ 
PVOID NextPageBaseAddr; 
ULONG ulPageSize, 
fulPageAttrs; 


if (pXcpt->ExceptionNum == XCPT_ACCESS_VIOLATION) 


Next PageBaseAddr = (PVOID)pXcpt->ExceptioniInfo [1]; 

if (NextPageBaseAddr ) 

{ 
ulPageSize = 4096; 
DosQueryMem (Next PageBaseAddr, &ulPageSize, &fulPageAttrs); 
1f ((fulPageAttrs & PAG_FREE) == 0) 


{ 
if (DosSetMem (Next PageBaseAddr, ulPageSize, PAG DEFAULT | 


PAG_COMMIT) != 0) 
return (XCPT_CONTINUE_SEARCH) ; 
else 
return (XCPT_CONTINUE_EXECUTION) ; 


/* Not an access violation so return it to */ 
/* OS/2 to handle. ae J 
return (XCPT_CONTINUE_SEARCH) ; 
} 


Figure 15.2. Exception handler to trap access violations: EXCEPTN.C (exception 
handler). 


64kb, an LDT can address 8K x 64kb, or 512 Mb. These limits can only be lifted 
when OS/2 is fully 32-bit. 

Let us now return to our sample program. If we just allocate 1 byte in our 
DosAllocMem call then we would still be able to access all 64 kb using our excep- 
tion handler. It would not be until we cross that 64kb boundary that we would 
actually crash the program. Even without an exception handler installed, we will 
still be able to access a complete page of memory since that is the smallest amount 
that can be allocated, and so long as we do not access beyond that page all will be 
well. This is something you must remember when coding for 32-bit OS/2, 
even though you may exceed the bounds of your allocated memory you may not 
receive an access violation, unlike 16-bit OS/2. It is not until you step over the 
page boundary that you will receive the page fault. However, when OS/2 is fully 
32-bit and memory is no longer necessarily tiled, it is unlikely that you will be 
able to allocate 1 byte and still access 64kb, so do not depend on this. Always 
allocate what you think you will need. 
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15.2 Trapping guard page exceptions 


The same can be achieved by using the guard page technique. A guard page is a 
special committed page that is used for expand-down memory, as in stacks. The 
default action on a guard page exception is for the guard page to have its guard 
attribute removed and the page below to be committed and set as a guard page. 
However, for our purposes we need to expand upwards and so we still need to 
supply our own exception handler to do it. The listing in Fig. 15.3 is the main 
routine which registers the exception handler and sets the first page of a block of 
64kb of memory as a guard page. 

Basically, all we need to do on receipt of a guard page exception (see Fig. 15.4) is 
to obtain the fault address as before and remove the guard attribute for this page 
and set the next page as a guard page and continue. 


#define INCL _DOSEXCEPTIONS 
#define INCL_DOSMEMMGR 


#include <os2.h> 
#include <string.h> 


ULONG XCPTHandler (PEXCEPTIONREPORTRECORD) ; 


INT main(VOID) 

{ 
EXCEPTIONREGI STRATIONRECORD ExceptionStruct; 
PVOID BaseMem; 
CHAR *S pala, 


roCnear: 
ULONG i: 
ExceptionStruct.ExceptionHandler = (_ERR *) &XCPTHandler; 


DosSetExceptionHandler(&ExceptionStruct); 


DosAllocMem(&BaseMem, 65536, PAG READ | PAG WRITE) ; 

DosSetMem(BaseMem, 4096, PAG READ | PAG WRITE | PAG_COMMIT | 
PAG GUARD) ; 

pData = BaseMem; 

poner = "ZL" s 


for (I1=0; 1<65536; I++) 
*oDatat++ = *pChar; 


DosUnsetExceptionHandler(&ExceptionStruct) ; 
DosFreeMem(BaseMem) ; 
return 0; 


Figure 15.3. Exception handler to trap guard page exceptions: EXCEPTN2.C (main 
routine). 
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ULONG XCPTHandler (PEXCEPTIONREPORTRECORD pxXcpt) 
{ 
PVOID NextPageBaseAddr; 
ULONG ulPageSize, 
fulPageAttrs; 
Lf (pXcpt->ExceptionNum == XCPT_GUARD_PAGE_ VIOLATION) 
{ 
Next PageBaseAddr = (PVOID) pXcpt->ExceptionInfo[1]; 
if (Next PageBaseAddr ) 
{ 
ulPageSize = 4096; 
DosQueryMem (Next PageBaseAddr, &ulPageSize, &fulPageAttrs) ; 
1f ((fulPageAttrs & PAG FREE) == 0) 
{ 
if (DosSetMem (Next PageBaseAddr, ulPageSize, PAG DEFAULT) 
l= Q) 
return (XCPT_CONTINUE_SEARCH) ; 
else 
{ 
Next PageBaseAddr = (PVOID) (pXcpt->ExceptionInfo[1] 
+ ulPageSize); 
DosSetMem (Next PageBaseAddr, ulPageSize, 
PAG _READ | PAG_WRITE | PAG COMMIT | PAG GUARD) ; 
return (XCPT_CONTINUE_EXECUTION) ; 


/* Not a guard page exception so return it */ 
/* to OS/2 to handle. i J 
return (XCPT_CONTINUE_SEARCH) ; 
} 


Figure 15.4. Exception handler to trap guard page exceptions: EXCEPTN2.C (exception 
handler). 


15.3. Running the debugger 


As discussed earlier, you will not see anything when running these programs from 
the command line. In order to appreciate what is happening you must run them 
using the Presentation Manager debugger, so to get you started follow this sample 
session: 


1 Start the debugger by typing ipmd exceptn at an OS/2 command prompt. 
2 Set breakpoints by double-clicking on line number 20, the statement containing 


the DosAl1locMem call, and line number 41, the first statement in the exception 
handler. 
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Double-click on the variables BaseMem and Next PageBaseAddr so that 
you can monitor their values in the program monitor list. 

Start running the program by giving the Source window the focus and press- 
ing the letter R. 

The debugger will now stop at line 20, so single step by pressing the letter O. 
This will cause the memory to be allocated and a pointer to be returned in 
BaseMem. You will see its value in the program monitor list. 

Now press Ctr1-G and overtype the flat memory address in the Storage 
window using the value returned for BaseMem. You will need to use mouse 
button 1 to move the cursor to the address area. This will now show the mem- 


Give the focus back to the Source window and press R again to continue. 
This will give you an Access Violation so press Enter and press R 
again. You will now be stopped at line 41 in the exception handler. 

Single step through to obtain the value Next PageBaseAdadr. This should be 
0x1000 (4kb) more than your base address. This is because you tried writing 
into the next page and so raised an exception. 

Overtype the flat memory address again, this time with the value in 
Next PageBaseAdadr, and continue single stepping. The statement at line 
50 will cause the next page to be committed and thus initialized with zeros. 
Press R again to continue. You will now see the memory fill with OxS5As and 
another violation occur when the next page is accessed. This will continue 
until all 64kb has been written to, when the program will end. 


You should now be able to carry out a similar session with the guard page excep- 
tion handler, EXCEPTN2.EXE. 
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Glossary 


A 


About 
A message box containing the program’s name and version number, and 
possibly the author and/or copyright information. 
Accelerator 
A single keystroke used for fast access to a user’s choice. 
Accelerator table 
A table containing your accelerator definitions, usually defined in your 
resource file. 
Access violation 
An error caused by a program accessing memory for which it is not 
authorized. 
Active window 
The window which currently has the focus. 
ANSI 
American National Standards Institute. 
API 
Application programming interface. 
ASCII 
American standard code for information interchange. 
Atom 
A constant representing a string. This can then be used in place of the 
string. 
Atom table 
A table containing the atoms and their strings. 


B 


Bitmap 
A graphic image. 
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Boot 
Start the computer by either pressing Ctrl-Alt-Delete or by switching it off 
and on again. 

Buffer 
A temporary area of memory. 

C 

C Set/2 


IBM’s 32-bit compiler written explicitly for OS/2 version 2. 

Checkbox 
A box-shaped control that can be used to indicate a choice. A cross is 
drawn into it when selected, but is empty when not selected. 

Checking 
Checking a menu item puts a small tick to its left to denote that it has been 
selected. 

Child window 
A window positioned relative to another, its parent, and that cannot be 
moved outside its parent. 

Client window 
The main body of a window used by the application for displaying or 
updating data. 

Command prompt 
Otherwise known as the C prompt. It is the command line as used in a 
windowed, or full-screen, OS/2 and DOS session. 

Computer conferencing 
A method of information exchange for any topic, not necessarily just com- 
puting. Used mainly for questions and answers or general debate. 

CONFIG.SYS 
A file in the root directory of your start-up drive that defines your system 
configuration. This file is vital and should be modified with care. If 
you accidentally corrupt it you will find a copy in the \OS2\INSTALL 
directory. 

Control 
A window used for user input, for example an entry field. It can also be 
used as output only, for example a read-only slider. 

CSD 
Corrective service diskette(s). The mechanism IBM uses to distribute soft- 
ware fixes. 

CUA 
Common user access. An IBM standard designed to ensure computer 
applications behave consistently. 
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Cursor 
The screen symbol indicating where keyboard input is to go. In the 
enhanced editor this is a flashing block or underscore depending whether 
you are in insert or replace mode. 


D 


Default procedure 
A window procedure which processes all messages that your window pro- 
cedure is not interested in. You must pass control to this procedure. 
Desktop manager 
This is a component of OS/2 version 1.x. It allows the user to organize 
programs into groups, run them and generally control the running of 
the desktop. 
Developer’s toolkit 
A set of tools and files necessary for building a program. It also contains 
all the technical reference manuals as on-line help files. 
Dialog box 
A special frame window that contains one or more controls. Usually 
created using the dialog box editor. 
Dialog box editor 
A special tool provided in the developer’s toolkit for the creation of dialog 


boxes. 
DLG file 

Dialog box template file. Its file name has the extension name DLG. 
DOS 

Disk operating system. The predecessor of OS/2. 
Drag 

Moving an object on the desktop with the help of the mouse. 
Drop 

Releasing a dragged object. 
E 
EA 


Extended attributes. Additional information associated with a file, such as 
file type or date last accessed. If a file with extended attributes is copied to 
a diskette, or to any disk partition formatted as a FAT partition, these 
attributes are stored in the file EA DATA . SF. Do not erase it otherwise 
you may experience problems. 
Enhanced editor 
The editor supplied as part of OS/2 version 2.0 in the productivity folder. 
Entry field 
A control used for data input. 
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Enumeration 
The process of searching the desktop for a window handle. 

F 

FAT 
File allocation table. Used to allocate disk space for a file and compatible 
with both DOS and OS/2. 

Focus 
The window which has the focus is the one about to receive input through 
either the keyboard or the mouse. 

Folder 
A workplace object that contains other objects, just as a ‘real world’ folder 
would contain sheets of paper. Depicted on the desktop as an icon in the 
shape of a pale yellow folder. 

Font 
A character set of a particular type and size of typeface. 

Frame 
The window encompassing all other parts of an application’s window. It is 
represented on the screen as a border and can usually be used to size a 
window. 

G 

GPI 
Graphics programming interface. 

Grey 
The term used to indicate that an item is not selectable, for example a 
greyed menu item. 

H 

Handle 
An identifier that Presentation Manager uses to identify an object, for 
example a window. 

Header file 


A file containing variable and constant definitions that 1s included in your 
program source file using the #include statement. 


Hello world 


Icon 


A very basic program that displays the string Hello World. 


A small window which represents an object and is usually a picture. It can 


Glossary 349 


be created using the icon editor which is part of OS/2 version 2.0. This 
editor was only available in the toolkit for OS/2 version 1.x. 

Integer 
A whole number. 

Invalidate 
Inform Presentation Manager that a window needs to be painted since it is 
no longer valid. This could be because another window covering it has 
been moved away. 


K 
Kb 
Kilobyte (1024 bytes). 
KBD 
Keyboard. 
L 
LDT 


An internal table, not accessible by applications, that defines the code and 
data segments for a particular process. 

Listbox 
A control which shows a scrollable list of selectable items. 


M 


Main window 
The topmost window of an application. Its position is relative to the desk- 
top. 

Make 
A program, NMAKE.EXE, supplied with the developer’s toolkit to aid in 
the building of a program. Especially useful when you have a program 
containing many source files, as it causes only those files that have 
changed since the last compilation to be recompiled. 

Maximize 
Make a window occupy the entire desktop, or if this is not possible, make 
it as large as possible. 

Mb 
Megabyte, or 1 048 576 bytes, that is, 1024 x 1024. 

Menu 
A window containing a list of choices. A menu can be pulled down from 
the menu bar or system menu, or popped up by using a mouse button. 

Menu bar 
The bar beneath the title bar which contains a horizontal list of options. 
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Minimize 
Make a window as small as possible. This can either be an icon on the 
desktop or in the minimized window viewer, or invisible. 

Minimized window viewer 
A special window in the workplace that holds minimized windows. 

MLE 
Multiline entry field. An entry field capable of displaying many lines. The 
OS/2 system editor uses this control. 

Mnemonic 
An underlined letter which appears on a pull-down menu that, when 
typed, will cause that action to be executed. A mnemonic may also be 
used to switch window focus. See also tilde. 

Modal dialog box 
A dialog box which, when being used, prohibits the user from interacting 
with its parent window, usually the application’s client window. A system 
modal dialog box prohibits interaction with any other window in the 
system. 

Modeless dialog box 
A dialog box which, when being used, allows interaction with any other 
window. 

MOU 
Mouse. 


O 


Object window 
A window that has no parent and is not visible but can process messages. 
OS/2 (16-bit) 
The initial version of OS/2, that is 1.0 through to 1.3. Requires at least an 
80286 processor. 
OS/2 (32-bit) 
The latest version of OS/2. Requires at least an 80386 processor. 
OS2.1INI 
A system file which stores application and system data. This file and 
OS2SYS.INI are vital, and if corrupted will cause you problems. Like 
CONFIG.SYS, copies of these files are also installed in your 
\OS2\INSTALL directory. 


OS2SYS.INI 

See OS2.INI. 
P 
Page 


The minimum amount of memory allocated to a program, 4096 bytes. 
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Pel 
Picture element. The smallest addressable unit on a screen. 

Pointer 
The symbol displayed on the screen that is moved by using the mouse, or 
other pointing device. 

Presentation Manager 
This is the graphical user interface introduced with OS/2 version 1.1. It is 
responsible for allowing multiple applications to run in windows on the 
desktop. 

Process 
A running program and its resources. A process comprises at least one 
thread. 

Pushbutton 
A control that, when pressed, causes an immediate action to take place, 
for example, cancel an update. 


R 


Resource file 
A file containing the definition of your program’s resources, for example 
menu and accelerator table definitions. 

RGB 
Red—green—blue. Used to express a colour using its three components. 


Screen 
The monitor display. 

Session 
Comprises a virtual screen, keyboard and mouse. A session can run many 
processes, for example the Presentation Manager session. 

Shutdown 
The process which needs to be run before switching off the computer to 
avoid loss of data, and to ensure the desktop is restored to its previous 
state next time it is started. 

Static field 
A text control; the user cannot enter data into it. 

Style 
Property of a window, or control. 

System menu 
The pull-down menu at the top-left corner of a window that allows the 
moving, sizing and closing of that window. 
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T 


Task list 
In OS/2 version 1.x, the list showing which programs are currently 
running. It can be used to switch to the programs or close them. 

Thread 
A unit of execution. It may be a complete program or just a few 
statements. 

Tilde 
The special character, ~, used to define a mnemonic. 

Title bar 
The bar at the top of a main window containing the program’s title. It can 
be used to move the window around the desktop by dragging it with the 


mouse. 
V 
VGA 

Video graphics array. 
VIO 

Video input/output. 
Ww 
Window list 


The version 2.0 equivalent of the task list. 
Window procedure 
Code that handles the processing of messages for a window. 
Workplace 
This is your screen in OS/2 version 2.0. It is similar to a desktop in that it 
can contain folders, printers, letters, memos or any other object. 
Workplace object 
This is basically anything that you work with in the workplace, for 
example a data file or program. 
Workplace Shell 
This is the OS/2 version 2.0 equivalent of the version 1 Presentation 
Manager Shell. 


Z 
7 -order 


The ‘three-dimensional’ ordering of windows. For example, the window 
with the input focus would be at the top of the Z-order. 


Appendix 2 
Obtaining accompanying software 


Source files, executable programs and three extra chapters (mouse and pointer 
control, keyboard processing and errors and error processing) are available in 
machine-readable form for 16-bit or 32-bit OS/2 by sending: 


i) a formatted diskette 
ii) a cheque for £5.95 sterling 
ili) a copy of the form below to 


McGraw-Hill Book Company (UK) Ltd 
Shoppenhangers Road 

Maidenhead, Berks SL6 2QL, 

England. 


Although every effort has been made to ensure the reliability and accuracy of the 
disk, the Publisher cannot guarantee that the disk, when used for its intended or 
any other use, is free from error or defect. You are welcome to use, copy and adapt 
these programs in any way you please, excepting that the contents of the diskette 
may not be reproduced without the copyright notice which it is supplied with, nor 
may it be sold. 
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Important 

Please specify whether you require the diskette for 16-bit or 32-bit OS/2. Please 
note that only the 32-bit diskette contains the sample application to monitor the 
swap file. This program has been extended since the book was written and now 
allows the storing of a continuous history of swap file changes. 
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/EXEPACK, 8 
/NOD, 7 
_alloca, 16 
_beginthread, 241 
_eevt, 16 
_endthread, 241 
_fcloseall, 16 
_fevt, 16 

_gcvt, 16 

_itoa, 16 

_ltoa, 16 
_putenv, 16 
_rmtmp, 16 
_System linkage, 242 
_tzset, 16 

_ultoa, 16 


About option, 259-260 
Active window, 30, 36 
Alt-Esc preventing, 32, 46, 269 
Alt-Tab preventing, 46, 269 
Atom, 

integer, 30, 189 

manager, 189 

string, 189 


Bitmap, 67, 69 

BKA *, 154 

BKM *, 153 

BKM QUERYTABTEXT, 160 

BKM_SETDIMENSIONS, 155 

BKM SETPAGEWINDOWHWND, 
156 

BEN *, 1453 

BKN_ PAGESELECTED, 159 

BKS *, 153 

BM_ SETDEFAULT, 66 

BN_PAINT, 67 

BOOKTEXT structure, 160 


354 


Broadcasting messages, 190 
BS_ DEFAULT, 66 
BS_USERBUTTON, 67 
Button 

default, 66, 67, 102 

push, 66-70, 114 

radio, 70, 114 

user, 67, 102 


C source files 

atom manager and user 
messages, 193-198 

Exception handler 
EXCEPTN.C, 340, 341 
EXCEPTN2.C, 342, 343 

General window control, 38 

Listboxes, 127—138 

MLE and radio buttons, 117-124 

Menus and task management, 
277-286 

Miscellaneous controls and 
activities, 105—113 

Skeleton program (16-bit), 3—5 

Skeleton program (32-bit), 11—13 

Swap partition monitor 
CHNGCOL.C, 330 
DLGWND.C, 323-330 
GAUGEFRM..C, 333 
GAUGEWND.C, 299-306 
GETSTATS.C, 295-297 
MAINWND.C, 313-322 
RGBTOSTR.C, 331-332 
SLIDER.C, 306-308 
STRTOLNG.C, 332 
STRTORGB.C, 331 
SUBCLASS.C, 309-312 
SWAPMON.C, 291-294 

System modal application 
(16-bit), 53-56 


System modal application 
(32-bit), 48—52 
Threads and timers, 249-258 
Version 2.0 controls and 
dialogs, 171-188 
Window enumeration and 
icons, 229-239 
Window words and 
initialization data, 206—217 
Child window, 221 
Class names, 30, 221, 224 
Close 
on context menu, 272 
removing from system menu, 263 
removing from window list, 270 
CLR_BACKGROUND, 142 
Colour 
changing, 57 
Comments, 14 
Compile options, 6 
CONFIG.SYS, 47, 53, 98, 288, 294, 
Container, 139 
CTEXT statement, 100 
CTLDATA, entry field, 71 
Ctrl-Esc, preventing, 32, 46 
Cursor 
not appearing, 71 
position, 71 


DBM_INVERT, 69 
DBM NORMAL, 69 
DBM_ STRETCH, 69 
Debugger, 339 
Desktop manager 
save, 32 
shutdown, 32 
Dialog box editor, 58, 60, 63, 101 
Dialog box 
disabling controls, 65 
focus, 63, 65, 76, 102 
icon, 36, 77, 102 
initialization data, 201 
main window, 60, 101 
menu, 97, 101 
minimizing, 61, 101 
mnemonics, 63, 124 
modeless, 63, 204 
pop-up menu, 101, 267 
position, 63 
retrieving data from, 204 
status bar, 64, 101 
title, 100 
window ID, 65, 102 
window words, 201 


Index 


Dialogs 

file, 162—165 

font, 165-168 

initializing, 162, 165 

standard, 162 
DosAllocMem, 82, 83, 200, 205, 341 
DosAllocSeg, 82, 83, 200, 204, 205 
DosAsyncTimer, 15 
DosBufReset, 15 
DosCaseMap, 15 
DosChDir, 15 
DosChgFilePtr, 15 
DosCreateDir, 15 
DosCreateThread, 240 
DosCwait, 15 
DosDeleteDir, 15 
DosExit, 15, 245 
DosFindFirst, 15 
DosFindFirst2, 15 
DosFreeMem, 15, 83 
DosGetCollate, 15 
DosGetCp, 15 
DosGetCtryInfo, 15 
DosGetDBCSEv, 15 
DosGetInfoBlocks, 15 
DosGetInfoSeg, 15 
DosGetResource, 15 
DosGetResource2, 15 
DosInsMessage, 15 
DosInsertMessage, 15 
DosKillThread, 244, 248 
DosMapCase, 15 
DosMkDir, 15 
DosMkDir2, 15 
DosNewsSize, 15 
DosOpen, 15 
DosOpen2, 15 
DosQCurDir, 15 
DosQCurDisk, 15 
DosQFHandState, 15 
DosQFSAttach, 15 
DosQFSInfo, 15 
DosQFileInfo, 15 
DosQHandType, 15 
DosQPathInfo, 15 
DosQSysInfo, 15 
DosQueryCollate, 15 
DosQueryCp, 15 
DosQueryCtryInfo, 15 
DosQueryCurrentDir, 15 
DosQueryCurrentDisk, 15 
DosQueryDBCSEnv, 15 
DosQueryFHState, 15 
DosQueryFSAttach, 15 
DosQueryFSInfo, 15, 294 
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DosQueryFileInfo, 15 
DosQueryHType, 15 
DosQueryPathInfo, 15 
DosQuerySysInfo, 15 
DosQVerify, 15 
DosQueryVerify, 15 
DosResetBuffer, 15 
DosResumeThread, 241, 243 
DosRmDir, 15 
DosSearchPath, 15 
DosSelectDisk, 15 
DosSetCurrentDir, 15 
DosSetDefaultDisk, 15 
DosSetFHState, 15 
DosSetFHandState, 15 
DosSetFilePtr, 15 
DosSetFileSize, 15 
DosSet priority, 15 
DosSetProcCP, 15 
DosSetProcessCP, 15 
DosSetPrty, 15 
DosShutdown, 15 
DosSleep, 80, 125, 242, 246, 247, 295 
DosStartSession, 46, 56 
DosStartTimer, 15 
DosStopTimer, 15 
DosSubAlloc, 15 
DosSubAllocMem, 83, 200, 205 
DosSubFree, 15 
DosSubFreeMem, 83, 201 
DosSubSetMem, 15 
DosSub Unset, 15 
DosSubUnsetMem, 83 
DosSuspendThread, 243 
DosTimerAsync, 15 
DosTimerStart, 15 
DosTimerStop, 15 
DosWaitChild, 15 
DPATH environment variable, 294 
Drag/Drop support for colours 
and fonts, 309 
DT_ERASERECT, 31 
DT_LEFT, 31 
DT _MNEMONIC, 63 
DT_WORDBREAK, 100 


EM SETREADONLY, 74 
EM_SETSEL, 71 
EM_SETTEXTLIMIT, 70 
End task button, 270, 272 
Entry field 
centralizing text, 100—101 
changing default length, 70 
clearing, 76 
control data, 71 
CTLDATA, 71 


Index 


cursor, 71 

disabling, 65 
numeric only, 73, 101 
read-only, 74, 102 
reading data, 72 
subclassing, 73 
unreadable, 75, 102 
writing data, 75 


Enumeration, 30, 87, 220, 224, 243, 


333 
Errors, common, 17 
SYS1477, 287 


ERROR_DOSSUB_NOMEM, 200, 


205 
ES UNREADABLE, 75 
ES READONLY, 74 
Exception handler, 200, 339 


FCF *, 18 

FCF_ICON, 223 

FCF MENU, 261 
FCF_MINMAX, 28 

FCF NOBYTEALIGN, 21, 48 


FCF SHELLPOSITION, 18, 19, 33 
FCF STANDARD, 17, 19, 33, 223, 


269 

FCF STDNOACCEL, 18 
FCF TASKLIST, 34, 269 
FDS *, 162 
FID _MINMAX, 28 
FID SYSMENU, 260 
FID TITLEBAR, 23 
File dialog, 162 

Styles, 163 
FILEDLG structure, 162—164 
Flat memory model, 8 
Font 

changing, 58, 114 

dialog, 165 

listbox, 59, 87 

style, 59 
FONTDLG structure, 165—168 
Frame creation flags, 17-19, 21 
Frame ID, 28 
Frame window 

handle, 17, 59 

style, 29 
FS_DLGBORDER, 29 
FS SIZEBORDER, 29 


Global variables, 17, 200, 245 
GpiQueryTextBox, 93 
Guard page, 342 


Hungarian notation, 1 
HWND_BOTTOM, 20 


HWND_DESKTOP, 24, 220, 224 


HWND_OBJECT, 34, 220, 298 


ICON statement, 77 
Icon 
animated, 225 
changing text, 224 
dialog box, 76 
dynamic update, 225 
hiding text, 224 
minimize/maximize, 28 
standard application, 36 
system, 76 
user, 77 


Listbox 
columns, 81, 114 
deleting items, 78 
deselecting items, 78, 124 
flicker, 159 
font, 87 
horizontal scrolling, 92 
inserting items, 77, 124 
item handle, 81, 84, 124, 225 
multiple selection, 78, 79 
non-selectable items, 96 
ownerdraw, 87, 124 
retrieving data, 84 
saving data, 81 
scroll bars, 86 
selecting items, 78, 124 
styles, 85 
LIT_END, 77 
LIT_FIRST, 79 
LIT_NONE, 78, 80 
LIT SORTASCENDING, 77 
LIT SORTDESCENDING, 77 
LM_DELETEALL, 78 
LM_DELETEITEM, 78 
LM_INSERTITEM, 77 
LM _QUERYITEMHANDLE, 84 
LM_QUERYITEMTEXT, 79 
LM_QUERYSELECTION, 79, 80 
LM_SELECTITEM, 78 
LM_SETITEMHANDLE, 81 
LM_SETTOPINDEX, 159 
LN_SELECT, 79, 85, 96, 313 
Lock parameter, 17 
LS_EXTENDEDSEL, 86 
LS-MULTIPLESEL, 86 
LS NOADJUSTPOS, 85 
LS NOVERTSCROLL, 86 
LS_ OWNERDRAW, 88 


Memory 
allocation, 82—83, 97 
suballocation, 83, 200 


Index 


Menu processing, 259 
Menu 
bar height, 267 
checking an item, 261 
deleting a separator, 263 
deleting an item, 263 
dialog box, 97, 101 
disabling/enabling an item, 262, 
265 
disabling/enabling menu bar, 264 
dismissing, 266 
multiple, 260 
pop-up, 101, 266, 288, 308 
switching, 261 
system, 259, 263, 265 
Message 
posting, 35 
sending, 35 
unique ID, 190 
MIA CHECKED, 261 
MIA DISABLED, 262 
MIA_NODISMISS, 266 
Minimized 
finding minimized 
applications, 224 
windows on desktop, 223 
Minimizing 
dialog box, 61 
window, 26—28 
MM _DELETEITEM , 263 
MM_DISMISSMENU, 266 
MM_ ENDMENUMODE, 266 
MM_INSERTITEM, 260 
MM_ITEMIDFROMPOSITION, 
260, 263 
MM_ITEMPOSITIONFROMID, 
263 
MM QUERYITEM, 260 
MM _SETITEMATTR, 261, 265 


MM_STARTMENUMODE, 266, 267 


MOUSEMSG,, 267 
MPFROM2SHORT, 71 
Multi-line entry field 

clearing, 97 

font, 59 

importing a file, 97—98 


Notebook 
associating a window handle 
with a page, 156 
control, 152 
creating, 154 
description, 139 
inserting pages, 155 
loading, 156 
message attributes, 154 


358 


messages, 153 
notification codes, 153 
size, 159 

styles, 153 

tab size, 155 

tab text, 159-160 


Object window, 243, 248 
OS2.INI, 33, 36, 290 
OWNERITEM structure, 88, 142 


PAGESELECTNOTIFY 
structure, 159 
PRESPARAMS statement, 57—58 
Presentation parameters, 33, 57, 64, 
87, 90, 114 
PrfQueryProfileData, 33 
PrfWriteProfileData, 33 
Process ID, 30, 36 
Progress indicator, 139 
PROTECTONLY, 53 
Push button 
default, 66-67, 102 
user, 67, 102 
PU_HCONSTRAIN, 308 
PU_VCONSTRAIN, 308 


QMSG structure, 35 
QW_NEXT, 224 

QW PARENT, 17 

QWL STYLE, 27, 66 
QWL_USER, 200, 201, 206 
QWS _ID,65 
QWS_XRESTORE, 25 
QWS_YRESTORE, 25 
QWS_CXRESTORE, 25 
QWS _CYRESTORE, 25 


Radio button initialization, 70, 114 


Sample programs 

Atom manager and user 
messages, 191 

Controls and dialogs 
(version 2.0), 168 

General window control, 36 

Listboxes, 124 

Menus and task management, 274— 
286 

MLE and radio buttons, 114 

Miscellaneous controls and 
activities, 101 

Skeleton, 2, 12-13 

Swap partition monitor, 287—290 

System modal (16-bit), 53-56 

System modal (32-bit), 47—52 

Threads and timers, 247—258 


Index 


Window enumeration and 
icons, 226—239 
Window words and 
initialization data, 199 
Save desktop option, 32, 272 
Saving application state, 32, 272, 290 
SBMP_SBUPARROW, 150 
SC_CLOSE, 263 
Screen resolution, 20-21 
SDA_BACKGROUND, 143 
SDA_RIBBONSTRIP, 143 
SDA_SLIDERARM, 143 
SDA_SLIDERSHAFT, 143 
SHORTIFROMMP, 79 
SHORT2FROMMP, 79 
Shutdown, 32, 272 
detecting/preventing, 272 
multiple threads, 273 
Skeleton program, 2 
SLDCDATA structure, 140 
Slider 
control, 140 
control data structure, 140 
creating, 144, 306 
description, 139 
message attributes, 143 
messages, 143 
notification codes, 143 
ownerdraw, 142, 298 
ownerdraw flags, 143 
position, 145 
read-only, 145, 288, 297 
styles, 142 
subclassing, 308 
updating, 146 
user’s view, 147 
SLM_*, 143 
SLM_SETSLIDERINFO, 312 
SLN_ *, 143 
SLN CHANGE, 146, 323 
SLN_SLIDERTRACK, 146, 323 
SLS *, 142 
SLS_ HORIZONTAL, 298 
SLS_PRIMARYSCALE2, 306 
SLS_ VERTICAL, 298 
SMA *, 143 
SPTR. *, 77 
STARTDATA structure, 48 
Static text 
backslash, 100 
line break, 100, 102 
read-only entry field, 74 
status bar, 64, 101 
Styles 
changing, 98 


frame, 29 

listbox, 85 

slider, 308 

window, 18, 27 
Subclassing 

frame window, 25 

entry field, 73 

slider, 308 
SV_CYMENU, 267 
SWAPPATH statement, 288 
SWAPPER.DAT, 287, 294 
SWBLOCK structure, 15 
SWCNTRL structure, 16 
SWENTRY structure, 15 
SWL_ GRAYED, 272 
SWL NOTJUMPABLE, 272 
SWP structure, 15, 27 
SWP_ACTIVATE, 19 
SWP_MAXIMIZE, 20 
SWP_MINIMIZE, 20, 28, 62-63 
SWP_MOVE, 19 
SWP_ SHOW, 19 
SWP_ SIZE, 19, 63 
SWP_ZORDER, 20, 23 
SYS1477 error, 287 
System menu 

adding an item, 259 

close, 263, 265, 272 

deleting an item, 263 

deleting a separator, 263 

disabling/enabling an item, 265 

move, 23, 263, 265 

size, 29, 263 
System modal, 32, 46 


Tab stops, 
adding and removing, 99, 102 
Task list, 46, 53 
(see also window list) 
Task management, 268 
adding program title to 
window list, 269 
changing program title in 
window list, 269 
querying program title in 
window list, 269 
Tenth of a second rule, 240 
Text 
changing, 100, 102 
Threads 
communicating, 35, 241 
creating, 240 
killing, 244—245 
multiple selection listbox, 80 
shutdown, 272 


starting in a suspended state, 240, 243 


Index 


without a message queue, 242 
with a message queue but 
no message processing 
loop, 242 
with a message queue and 


message processing loop, 243 


Timer 
longer than 65 seconds, 246 
Title bar 
changing, 34, 100 
disabling, 23, 48 
EXE name appearing in, 34 
removing, 34 


User messages, 190 
USERBUTTON structure, 67 


Value set 
attributes, 151 
bitmap, 148, 152 
colour, 147 
control, 147 
control data structure, 147 
creating, 147 
description, 139 
messages, 151 
notification codes, 151 
selecting items, 150-151 
styles, 148 
VIA_*, 151 
VM _*, 151 
VM QUERYSELECTEDITEM, 
151-152 
VM_QUERYITEM, 151 
VM_SETITEM, 149 
VN _*, 151 
VN_SELECT, 150 
VS_*, 148 
VS_SCALEBITMAPS, 148-149 
VSCDATA structure, 147 


WC _*, 30 

WinAddAtom, 190 
WinAddSwitchEntry, 269 
WinBeginEnum Windows, 220 
WinBeginPaint, 31 
WinCancelShutdown, 243, 273 
WinChangeSwitchEntry, 269 
WinCheckMenultem, 262 
WinCreateAtomTable, 189 
WinCreateMsgQueue, 242 


WinCreateStdWindow, 2, 17, 19, 223 


WinCreateWindow, 199 
WinDestroyPointer, 62 
WinDestroyWindow, 61, 63, 86 
WinDispatchMsg, 35 
WinDlgBox, 61, 201 
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Window 
active, 30, 36 
centralizing, 21 
changing title, 34 
child, 221 
enumeration, 30, 87, 220, 224, 243, 
333 
focus, 19 
full-screen, 21 
ID, 65, 102 
initial display, 19 
keeping on top, 23-24 
locking, 14 
maximized, detecting if, 27 
maximizing, detecting when, 26 
maximizing, prohibiting, 28 
menu changing, 260 
minimized, detecting if, 27 
minimizing, 28 
minimizing, detecting when, 26 
minimizing, prohibiting, 28 
minimum size, 25 
movement, 23 
not being displayed, 17 
object, 243, 248 
parent, 17, 24 
position, 19, 21 
prohibiting movement, 23 
prohibiting sizing, 29 
removing title bar, 34 
restoring, detecting when, 26 
restoring to a fixed size or 
position, 24 
sample program, 36 
saving current state, 32 
size, 19, 25, 28 
starting in the background, 20 
starting maximized, 20 
starting minimized, 20 
subclassing, 23, 25 
system menu, 23 
system modal, 32 
title, 34 
words, 27, 199 
Window class, 30 
Window list, 46, 48, 265, 272 
adding program title, 269 
changing program title, 269 
options, 272 
querying list, 271 
querying program entry, 269 
removing close, 270 
Window style, 18, 27 
Window words, 63, 201 
WinDrawText, 31 


Index 


WinEnableMenultem, 265 
WinEnableWindow, 23, 28, 65, 96, 
264—265 
WinEnableWindow Update, 159 
WinEndEnumWindows, 220 
WinEndPaint, 31 
WinEnumDiglItem, 14 
WinGetMsg, 35 
WinGetNextWindow, 220 
WinGetSysBitmap, 148 
WinInitialize, 2, 242 
WinInvalidateRect, 29, 31, 67, 225 
WinIsMenultemChecked, 263 
WinIsMenultemEnabled, 263 
WinLoadDilg, 61, 63, 201, 202 
WinLoadMenu, 97, 261, 267 
WinLoadPointer, 61, 77 
WinLockWindow, 14 
WinMapWindowPoints, 28 
Winl6NoShutdown, 270 
WinNoShutdown, 270 
WinPopupMenu, 267 
WinPostMsg, 35, 241-242, 294 
WinProcessDlg, 61 
WinQueryActiveWindow, 14, 30 
WinQueryAtomName, 30 
WinQueryCapture, 14 
WinQueryClassName, 30 
WinQueryClipbrdOwner, 14 
WinQueryClipbrdViewer, 14 
WinQueryDlgItemShort, 72 
WinQueryDlgItemText, 72 
WinQueryFocus, 14 
WinQueryPointerPos, 267 
WinQuerySwitchHandle, 269 
WinQuerySwitchList, 271 
WinQuerySysModalWindow, 14 
WinQuerySystemAtomTable, 189, 190 
WinQuerySysValue, 21, 267 
WinQueryWindow, 14, 17, 224 
WinQueryWindowLockCount, 14 
WinQueryWindowPos, 33 
WinQueryWindowProcess, 30 
WinQueryWindowRect, 28, 31, 
WinQueryWindowText, 63, 72 
WinQueryWindowULong, 27, 66, 
199, 201 
WinQueryWindowUShort, 65, 199 
WinRegisterClass, 199 
WinRemoveSwitchEntry, 269 
WinRestoreWindowPos, 33 
WinSendDlgItemMsg, 70 
WinSendMsg, 35, 241-242, 248, 294 
WinSetDlgItemShort, 14, 75 
WinSetDlgItemText, 74, 75, 97, 100 


WinSetFocus, 76 
WinSetOwner, 24 
WinSetPresParam, 57—59, 64, 90, 
114, 142, 306 
WinSetSysModalWindow, 32, 46, 48 
WinSetWindowBits, 29, 67 
WinSetWindowPos, 5, 19-22, 28, 62, 
63, 267, 298 
WinSetWindowText, 34, 64, 74, 75, 
97, 100, 101, 224 
WinSetWindowULong, 29, 99, 200, 
298 
WinSetWindowUShort, 14, 24 
WinShowWindow, 33, 63, 159, 224 
WinStartTimer, 23, 246 
WinStopTimer, 24, 32 
WinStoreWindowPos, 309 
WinSwitchToProgram, 47, 48 
WinTerminate, 5 
WinWindowFromID, 28, 65, 100, 
222, 260 
WinWindowFromPoint, 14 
WM_ADJUSTWINDOWPOS, 61 
WM_BUTTON2DOWN, 267, 306, 308 
WM_COMMAND, 5, 35, 260, 268, 
298 
WM _ CONTROL, 67, 68, 70, 146, 
150, 159, 323 
WM_CREATE, 17-19, 32, 200, 260, 
267 
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WM_DESTROY, 201 

WM_DRAWITEM, 88-91, 93, 96, 
142, 298 

WM_ERASEBACKGROUND, 5 

WM _INITDLG, 61, 63-65, 70, 76, 
TT, 97, 114, 201, 267 

WM_INITMENU, 261, 265 

WM _MEASUREITEM, 88, 90, 92 

WM_MINMAXFRAME, 24, 26, 36 

WM_NEXTMENU, 267 

WM _PAINT, 31, 36, 312 

WM_PRESPARAMCHANGED, 
309 

WM_ QUERYTRACKINFO, 25-26 

WM_QUIT, 5, 243, 246, 272-273, 
290, 312 

WM_SAVEAPPLICATION, 32, 37, 
212,313 

WM_SETICON, 61, 77, 225 

WM_SIZE, 159 

WM_TIMER, 23, 31, 36, 146-147, 
246, 295 

WM_UPDATEFRAME, 34, 97, 261, 
298 

WM_USER, 190, 202, 247 

Workplace object, 223 

Workplace shell, 32, 47, 223, 227 

WS_ MAXIMIZED, 27 

WS_MINIMIZED, 27, 224 

WS _VISIBLE, 18, 19 


Have you ever wondered why your client window didn’t display, how your mouse 
pointer could be changed or how you could start your application minimized? 
Programmers have come up against the same problems again and again, now this 
unigue book provides the solutions to these questions and many others. 


OS/2 Presentation Manager Programming: Hints and Tips is a desktop guide 
aimed at anyone, from novice to expert, involved in OS/2 Presentation Manager 
applications. Answers to over 100 of the most common queries are provided, each 
accompanied by a code fragment and incorporated into a sample program for IBM’s 
new 32-bit compiler. Important areas such as 16 to 32-bit conversion, general 
window processing and dialog boxes and controls are covered. The book concludes 
with a sample application which incorporates many of the tips in a program to monitor 
the size of the swap file. Diskettes containing source code are available on request to 



















accompany this book. 


Key features include: 


© Solutions to the most commonly encountered problems, backed up with 


working code 
° Up-to-date coverage of Version 2.0 of OS/2 and IBM’s new C SET/2 compiler 


e Easy conversion from 16-bit to 32-bit code, showing the main points to look 
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